Commit 4edac9f9 authored by John van Groningen's avatar John van Groningen
Browse files

added symbol_heap parameter to newHashTable

parent a22c3cf6
......@@ -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
......
......@@ -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}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment