Fixed untraced issues

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

source/Activities.Mod

@@ -133,7 +133,7 @@ TYPE Processor = RECORD {ALIGNED (CPU.CacheLineSize)}
 	assigning := FALSE: BOOLEAN;
 	originalFramePointer: ADDRESS;
 	readyQueue: ARRAY Priorities OF Queues.AlignedQueue;
-	runningActivity: Activity;
+	runningActivity {UNTRACED}: Activity;
 	index: SIZE;
 END;
 

source/Modules.Mod

@@ -780,7 +780,7 @@ BEGIN {UNCOOPERATIVE, UNCHECKED}
 	IF register.first = NIL THEN
 		register.first := module;
 	ELSE
-		register.last.next := module; (* transitively unsafe access via register.last *)
+		SYSTEM.PUT (ADDRESS OF register.last.next, module); (* transitively unsafe access via register.last *)
 	END;
 	register.last := module;
 END Register;