sue of NOPAF is required for INITIAL and FINAL calls

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

source/Generic.Modules.Mod

@@ -1003,7 +1003,7 @@ BEGIN
 END PublishRegisteredModules;
 
 (* procedure that will be called last in a linked kernel *)
-PROCEDURE {FINAL} Main;
+PROCEDURE {FINAL, NOPAF} Main;
 BEGIN
 	(*Machine.Init;*)
 	Trace.String("publish registered modules"); Trace.Ln;

source/Win32.Machine.Mod

@@ -567,7 +567,7 @@ BEGIN
 	END;
 END Init;
 
-	PROCEDURE {INITIAL} Start;
+	PROCEDURE {INITIAL, NOPAF} Start;
 	BEGIN
 		Init; (* cannot allocate variables in here *)
 	END Start;