Fix crash while executing invalid command

1 files changed, 3 insertions, 1 deletions

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;