Reverted change that had resulted from misleading GC traps.

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

source/Heaps.Mod

@@ -1019,7 +1019,6 @@ VAR p {UNTRACED}: FreeBlock;
 BEGIN
 	(* invoke mark phase, mark phase starts at next scheduler interrupt *)
 	GC;
-	RETURN;
 	(* return blocks now *)
 	Machine.Acquire(Machine.Heaps);
 	(* trying to satisfy a request of MAX(LONGINT) bytes will never succeed - lazy sweep runs until end of heap *)
@@ -1111,13 +1110,7 @@ BEGIN
 		bp := CheckBP(Machine.CurrentBP()); 
 		SYSTEM.GET(bp, bp); 
 		bp := CheckBP(bp);
-		(*! somthing wrong?
 		SYSTEM.GET(bp+SIZEOF(ADDRESS), p.heapBlock.heapBlock);
-		*)
-		(*
-		stackDesc := Machine.CurrentBP();
-		p.heapBlock.heapBlock := stackDesc.link.pc;
-		*)
 	END;
 END SetPC;