Fixed public environment interface

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

source/BIOS.Environment.Mod

@@ -312,11 +312,11 @@ PROCEDURE GetInit- (n: SIZE; VAR val: LONGINT);
 BEGIN val := initRegs[n]
 END GetInit;
 
-PROCEDURE StoreActivity;
+PROCEDURE StoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 END StoreActivity;
 
-PROCEDURE RestoreActivity;
+PROCEDURE RestoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 END RestoreActivity;
 

source/RPI.Environment.Mod

@@ -170,11 +170,11 @@ BEGIN {UNCOOPERATIVE, UNCHECKED}
 	END;
 END Blink;
 
-PROCEDURE StoreActivity;
+PROCEDURE StoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 END StoreActivity;
 
-PROCEDURE RestoreActivity;
+PROCEDURE RestoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 END RestoreActivity;
 

source/Win32.Environment.Mod

@@ -218,12 +218,12 @@ PROCEDURE GetInit- (n: SIZE; VAR val: LONGINT);
 BEGIN val := 0;
 END GetInit;
 
-PROCEDURE StoreActivity;
+PROCEDURE StoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 	Kernel32.TlsSetValue(activity, SYSTEM.VAL(ADDRESS, SYSTEM.GetActivity ()));
 END StoreActivity;
 
-PROCEDURE RestoreActivity;
+PROCEDURE RestoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 	SYSTEM.SetActivity(SYSTEM.VAL(Activities.Activity,Kernel32.TlsGetValue(activity)));
 END RestoreActivity;

source/Zynq.Environment.Mod

@@ -103,11 +103,11 @@ BEGIN {UNCOOPERATIVE, UNCHECKED}
 	memory := MemorySize - ADDRESS OF KernelEnd;
 END InitMemory;
 
-PROCEDURE StoreActivity;
+PROCEDURE StoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 END StoreActivity;
 
-PROCEDURE RestoreActivity;
+PROCEDURE RestoreActivity-;
 BEGIN {UNCOOPERATIVE, UNCHECKED}
 END RestoreActivity;