diff options
| -rw-r--r-- | frontend/hashtable.dcl | 2 | ||||
| -rw-r--r-- | frontend/hashtable.icl | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/frontend/hashtable.dcl b/frontend/hashtable.dcl index 72a5544..fea7b26 100644 --- a/frontend/hashtable.dcl +++ b/frontend/hashtable.dcl @@ -10,7 +10,7 @@ import syntax , hte_mark :: !Int // 1 for .icl modules, otherwise 0 } -newHashTable :: *HashTable +newHashTable :: *SymbolTable -> *HashTable set_hte_mark :: !Int !*HashTable -> *HashTable diff --git a/frontend/hashtable.icl b/frontend/hashtable.icl index 1ca48b5..0f8cd27 100644 --- a/frontend/hashtable.icl +++ b/frontend/hashtable.icl @@ -24,8 +24,8 @@ import predef, syntax, StdCompare, compare_constructor :: BoxedIdent = {boxed_ident::!Ident} -newHashTable :: *HashTable -newHashTable = { hte_symbol_heap = newHeap, hte_entries = { HTE_Empty \\ i <- [0 .. dec cHashTableSize] },hte_mark=0} +newHashTable :: *SymbolTable -> *HashTable +newHashTable symbol_heap = { hte_symbol_heap = symbol_heap, hte_entries = { HTE_Empty \\ i <- [0 .. dec cHashTableSize] },hte_mark=0} set_hte_mark :: !Int !*HashTable -> *HashTable set_hte_mark hte_mark ht = {ht & hte_mark=hte_mark} |