* exit with exitcode 217 instead of some random OS result

    on an unhandled exception

git-svn-id: trunk@5314 -

rtl/inc/except.inc

@@ -153,7 +153,7 @@ begin
     with ExceptObjectStack^ do
       begin
         TExceptProc(ExceptProc)(FObject,Addr,FrameCount,Frames);
-        Halt(ExitCode);
+        halt(217)
       end;
   if erroraddr = nil then
     RunError(217)