Removed some debug tracing

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6915 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxCompiler.Mod

@@ -572,5 +572,5 @@ BEGIN
 	AddPlatform("A2G","-b=AMD --objectFile=Generic --newObjectFile --mergeSections --objectFileExtension=.GofG --symbolFileExtension=.SymG");
 	AddPlatform("A2Coop","-b=AMD --cooperative --objectFile=Generic --newObjectFile --traceModule=Trace --mergeSections");
 	AddPlatform("ARMA2","-b=ARM --objectFile=Generic --newObjectFile --symbolFile=Textual --mergeSections");
-	AddPlatform("Linux32G","-b=AMD --objectFile=Generic --newObjectFile --traceModule=Trace --symbolFile=Textual --objectFileExtension=.GofU --symbolFileExtension=.SymU");
+	AddPlatform("Linux32G","-b=AMD --objectFile=Generic --newObjectFile --traceModule=Trace --symbolFile=Textual --objectFileExtension=.GofU --symbolFileExtension=.SymU --preciseGC");
 END Compiler.

source/Generic.Linux.I386.Unix.Mod

@@ -799,9 +799,6 @@ VAR
 			Trace.String( "Unix.Dlsym:  entry '" );  Trace.String( sym );  Trace.String( "' not found" );
 			Trace.Ln;
 			exit(0);
-		ELSE
-			Trace.String( "Unix.Dlsym found " );  Trace.String( sym ); 
-			Trace.Ln
 		END
 	END Dlsym;
 

source/Generic.Modules.Mod

@@ -438,8 +438,6 @@ BEGIN
 			i:= 0;
 			REPEAT
 				GetFileName(name, extension[i], fileName);
-				Trace.String(name); Trace.String(":"); Trace.String(extension[i]); Trace.String(":"); Trace.String(fileName); Trace.Ln;
-				TRACE(name, extension[i], fileName);
 				m := loader[i](name, fileName, res, msg);
 				INC(i);
 			UNTIL (m # NIL) OR (i=numLoaders);

source/GenericLoader.Mod

@@ -11,7 +11,7 @@ CONST
 	CommandTrapped* = 3904; (* cf module Commands *) 
 	
 	SupportOldObjectFileFormat = FALSE;
-	TraceLoading = TRUE;
+	TraceLoading = FALSE;
 TYPE
 
 	HashEntryIntInt = RECORD
@@ -599,9 +599,8 @@ VAR
 		module: Modules.Module; heapBlockAdr,moduleAdr: LONGINT;
 		Log: Streams.Writer;
 	BEGIN
-		TRACE(name, fileName);
 		file := Files.Old(fileName);
-		TRACE(file);
+
 		IF file # NIL THEN
 			IF TraceLoading THEN Trace.String("loading"); Trace.String(fileName); Trace.Ln END;
 			res := Ok; msg[0] := 0X;