[tyndur-devel] [PATCH 2/4] Pascal-RTL: exit() aus der libc benutzen

[Kevin Wolf <kevin@xxxxxxxxxx>]

! Pascal-RTL: Beim Beenden des Programms wird jetzt nicht mehr direkt der
  exit-Syscall aufgerufen, sondern exit() aus der libc. Dadurch geben auch
  Pascal-Programme einen vernuenftigen Exitcode zurueck und svn akzeptiert
  die in kedit eingegebene Commitmessage.

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lib/rtl/system.pas |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/modules/pas/lib/rtl/system.pas b/src/modules/pas/lib/rtl/system.pas
index 8fccd81..92701ea 100644
--- a/src/modules/pas/lib/rtl/system.pas
+++ b/src/modules/pas/lib/rtl/system.pas
@@ -81,12 +81,11 @@ end;
 {*****************************************************************************
                          System Dependent Exit code
 *****************************************************************************}
+procedure c_exit(exit_code: integer); cdecl; external name 'exit';
+
 procedure system_exit;
 begin
-    asm
-        mov SYSCALL_PM_EXIT_PROCESS, %eax
-        int $0x30
-    end;
+    c_exit(exitcode);
 end;
 
 
-- 
1.5.6.5