aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--frontend/hashtable.dcl2
-rw-r--r--frontend/hashtable.icl4
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}