Removed trace output

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

source/Heaps.Mod

@@ -1692,20 +1692,6 @@ BEGIN
 	RETURN total-free;
 END Used;
 
-PROCEDURE GetPCs*();
-VAR bp,pc: ADDRESS;
-BEGIN
-		bp := CheckBP(Machine.CurrentBP()); 
-		SYSTEM.GET(bp, bp); 
-		bp := CheckBP(bp);
-		SYSTEM.GET(bp+SIZEOF(ADDRESS), pc);
-		TRACE(pc);
-		SYSTEM.GET(bp, bp); 
-		bp := CheckBP(bp);
-		SYSTEM.GET(bp+SIZEOF(ADDRESS), pc);
-		TRACE(pc);
-END GetPCs;
-
 PROCEDURE DecRefCount(VAR count: WORD): BOOLEAN;
 VAR value: WORD;
 BEGIN
@@ -1823,9 +1809,6 @@ BEGIN{UNCHECKED} (* omit any range checks etc.*)
 			END;
 			h.refCount := -1;
 		END;
-		IF count > 100 THEN
-		TRACE(count);
-		END;
 		(*
 		ASSERT(CheckPointer(p));
 		meta := p;
@@ -2093,14 +2076,6 @@ BEGIN
 	Machine.Release(Machine.Heaps);
 END SetOld;
 
-PROCEDURE Report*;
-BEGIN
-	TRACE(resets, refers, assigns);
-END Report;
-
-
-
-
 PROCEDURE SetHeuristic*;
 BEGIN
 	GCType := HeuristicStackInspectionGC;