* removed runtime error on unhandled exception when SysUtils is used.

git-svn-id: trunk@5273 -

rtl/inc/except.inc

@@ -151,7 +151,10 @@ Procedure DoUnHandledException;
 begin
   If (ExceptProc<>Nil) and (ExceptObjectStack<>Nil) then
     with ExceptObjectStack^ do
-      TExceptProc(ExceptProc)(FObject,Addr,FrameCount,Frames);
+      begin
+        TExceptProc(ExceptProc)(FObject,Addr,FrameCount,Frames);
+        Halt(ExitCode);
+      end;
   if erroraddr = nil then
     RunError(217)
   else