Parcourir la source

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

git-svn-id: trunk@4708 -
florian il y a 19 ans
Parent
commit
3c50c5f714
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      rtl/objpas/sysutils/sysutils.inc

+ 1 - 1
rtl/objpas/sysutils/sysutils.inc

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