* return from unhandled exception handler to system unit so things get cleaned up properly

git-svn-id: trunk@4708 -

rtl/objpas/sysutils/sysutils.inc

@@ -246,7 +246,7 @@ begin
         Writeln(stdout,BackTraceStrFunc(Frames[i]));
     end;
   Writeln(stdout,'');
-  Halt(217);
+  ErrorCode:=217;
 end;