diff options
| -rw-r--r-- | main/coclmain.icl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/main/coclmain.icl b/main/coclmain.icl index 58d9e14..c68124a 100644 --- a/main/coclmain.icl +++ b/main/coclmain.icl @@ -14,8 +14,10 @@ coclMain :: ![{#Char}] !*World -> *World coclMain testArgs world # (commandArgs, world) = getCommandArgs (tl [arg \\ arg <-: getCommandLine]) testArgs world + # (symbol_table,world) + = init_identifiers newHeap world # (success, world) - = accFiles (compiler commandArgs) world + = accFiles (compiler commandArgs symbol_table) world = set_return_code (if success 0(-1)) world where getCommandArgs :: [{#Char}] [{#Char}] *World -> ([{#Char}], *World) @@ -77,9 +79,9 @@ import thread_message; import code from "thread_message.obj"; -compiler :: ![{#Char}] *Files -> *(!Bool,!*Files); -compiler commandArgs files - # dcl_cache = empty_cache (init_identifiers newHeap) +compiler :: ![{#Char}] *SymbolTable *Files -> *(!Bool,!*Files); +compiler commandArgs symbol_table files + # dcl_cache = empty_cache symbol_table | length commandArgs==2 && commandArgs!!0=="-ide" # wm_number=get_message_number; # thread_id=hex_to_int (commandArgs!!1); |