From 91be2871192d3dc1a07dbcc09776de907b5a755d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 5 Oct 2005 19:24:00 +0000
Subject: [PATCH] * exit_group isn't available on older linuxes, if exit_group
 fails, use exit

git-svn-id: trunk@1299 -
---
 rtl/linux/i386/prt0.as | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/linux/i386/prt0.as b/rtl/linux/i386/prt0.as
index 7da5dcd9d2..9dd0566b2d 100644
--- a/rtl/linux/i386/prt0.as
+++ b/rtl/linux/i386/prt0.as
@@ -73,6 +73,9 @@ _haltproc2:             # GAS <= 2.15 bug: generates larger jump if a label is e
 	movl    $252,%eax                /* exit_group */
         movzwl  operatingsystem_result,%ebx
         int     $0x80
+        movl    $1,%eax                /* exit */
+        movzwl  operatingsystem_result,%ebx
+        int     $0x80
         jmp     _haltproc2
 
 .data