From 865a4573cfa734770351f1fc7736eee4f1e1af67 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 10 Nov 2006 20:32:20 +0000
Subject: [PATCH] * exit with exitcode 217 instead of some random OS result
on an unhandled exception
git-svn-id: trunk@5314 -
---
rtl/inc/except.inc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl/inc/except.inc b/rtl/inc/except.inc
index 543fe5ca59..fb904ca816 100644
--- a/rtl/inc/except.inc
+++ b/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)