diff options
| author | johnvg | 2001-08-31 10:46:42 +0000 |
|---|---|---|
| committer | johnvg | 2001-08-31 10:46:42 +0000 |
| commit | 2d7141eb1fbea5966a5033978ce9c9467fd90bde (patch) | |
| tree | 4fc0dbac35c2023ea2cecb08d5f23e995832ede2 | |
| parent | added ArrayAndListInstances,OverloadedListPatterns and OverloadedListType (diff) | |
added symbol_heap parameter to newHashTable
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@704 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -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} |