Pārlūkot izejas kodu

removed old debugging output

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7544 8c9fc860-2736-0410-a75d-ab315db34111
felixf 7 gadi atpakaļ
vecāks
revīzija
270dd08ba3
1 mainītis faili ar 0 papildinājumiem un 3 dzēšanām
  1. 0 3
      source/Generic.Modules.Mod

+ 0 - 3
source/Generic.Modules.Mod

@@ -647,14 +647,11 @@ BEGIN
 			m.next := freeRoot; freeRoot := m;
 			(* clear global pointers and code *)
 			IF m.ptrAdr # NIL THEN
-				Trace.String("ptradr del"); Trace.Ln;
 				FOR i := 0 TO LEN(m.ptrAdr)-1 DO SYSTEM.PUT (m.ptrAdr[i], NIL) END;
 			END;
 			IF ClearCode & (m.code # NIL) THEN
-				Trace.String("clear code"); Trace.Ln;
 				FOR i := 0 TO LEN(m.code)-1 DO m.code[i] := 0CCX END
 			END;
-			Trace.String("clear code f"); Trace.Ln;
 			(* remove references to module data *)
 			m.published := FALSE;
 			m.entry := NIL; m.command := NIL; m.ptrAdr := NIL;