Check for empty code section in module termination handler

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

source/Generic.Modules.Mod

@@ -613,7 +613,9 @@ BEGIN
 		IF m.term # NIL THEN	(* call termination handler *)
 			term := m.term; m.term := NIL; term	(* may trap *)
 		END;
-		Heaps.CleanupModuleFinalizers(ADDRESSOF(m.code[0]), LEN(m.code), m.name)
+		IF m.code # NIL THEN
+			Heaps.CleanupModuleFinalizers(ADDRESSOF(m.code[0]), LEN(m.code), m.name)
+		END;
 	END;
 	res := Ok; msg[0] := 0X;
 	Machine.Acquire(Machine.Modules);