Quellcode durchsuchen

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

git-svn-id: trunk@4708 -
florian vor 19 Jahren
Ursprung
Commit
3c50c5f714
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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;