From a54366fd435e11ef3d594bcf3419df400725dabe Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Thu, 19 Jun 2008 00:10:00 +0200
Subject: Fix crash while executing invalid command

---
 libgtk_kylix/GTKForms.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'libgtk_kylix')

diff --git a/libgtk_kylix/GTKForms.pas b/libgtk_kylix/GTKForms.pas
index ad755b7..db6b445 100644
--- a/libgtk_kylix/GTKForms.pas
+++ b/libgtk_kylix/GTKForms.pas
@@ -675,6 +675,8 @@ begin
     CheckSynchronize; }
 end;
 
+procedure _exit(status: longint); cdecl; external 'libc.so.6' name '_exit';
+
 procedure TGTKApplication.Run;
 begin
   repeat
@@ -686,7 +688,7 @@ begin
       on E : Exception do
         if E is EControlC then begin
           WriteLn('*** Exception: ', E.Message);
-          Halt(1);
+          _exit(1);
           Exit;
         end else HandleException(E);
     end;
-- 
cgit v1.2.3