exit the DLL-loading thread from A2 at the return of Kernel32.EntryPoint (DllMain)

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

source/Modules.Mod

@@ -879,13 +879,16 @@ END Main;
 
 (* procedure that will be called last in a linked kernel *)
 PROCEDURE {FINAL, NOPAF} Main-;
+PROCEDURE ExitA2 EXTERN "Objects.ExitA2"();
 BEGIN
 	(*Machine.Init;*)
 	IF TraceBoot THEN
 		Trace.String("publish registered modules"); Trace.Ln;
 	END;
 	PublishRegisteredModules;
-#IF ~SHAREDLIB THEN
+#IF SHAREDLIB THEN
+	ExitA2; (*! at this point the DLL loading thread exits the A2 (returns from Kernel32.EntryPoint/DllMain) *)
+#ELSE
 	(* a standard A2 kernel does not reach this point, but for standalone executables this is required *)
 	Machine.Shutdown(FALSE);
 #END;