From 14a2ebdc10620bb6a4491dadb359e0560df9db75 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 30 Nov 2001 15:16:51 +0000
Subject: initPtr modifies the *World

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@913 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/coclmain.icl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'main')

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);
-- 
cgit v1.2.3