added SetPC(), dummy!

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

source/Unix.Heaps.Mod

@@ -780,6 +780,12 @@ VAR
 		p := S.VAL( ANY, ptr );
 		Machine.Release( Machine.Heaps );
 	END NewProtRec;
+	
+	PROCEDURE SetPC*( p: ANY );
+	BEGIN
+		(* not implemented *)
+		HALT( 100 );
+	END SetPC;	
 
 
 	(** Private compiler interface. Do not use. *)