diff options
| author | johnvg | 2004-04-02 11:54:09 +0000 |
|---|---|---|
| committer | johnvg | 2004-04-02 11:54:09 +0000 |
| commit | 3d5ecf72822184a21b97f4ce66f386cc6dcb23ce (patch) | |
| tree | 833d56e102a4681fe8e9aa754bfb2d0079f53d68 | |
| parent | don't overwrite first byte of next node in the heap with a '\0' (diff) | |
export strictness of argument of newHashTable
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1480 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/hashtable.dcl | 2 | ||||
| -rw-r--r-- | frontend/hashtable.icl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/frontend/hashtable.dcl b/frontend/hashtable.dcl index 433f270..ad0e238 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 :: *SymbolTable -> *HashTable +newHashTable :: !*SymbolTable -> *HashTable set_hte_mark :: !Int !*HashTable -> *HashTable diff --git a/frontend/hashtable.icl b/frontend/hashtable.icl index a50c393..1e0aefc 100644 --- a/frontend/hashtable.icl +++ b/frontend/hashtable.icl @@ -26,7 +26,7 @@ import predef, syntax, StdCompare, compare_constructor :: BoxedIdent = {boxed_ident::!Ident} -newHashTable :: *SymbolTable -> *HashTable +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 |