Browse Source

* converted _FPC_libc21_haltproc into a pascal subroutine so stack alignment is kept

git-svn-id: trunk@43013 -
florian 5 years ago
parent
commit
719ff5fb4c
1 changed files with 8 additions and 6 deletions
  1. 8 6
      rtl/linux/i386/si_c21.inc

+ 8 - 6
rtl/linux/i386/si_c21.inc

@@ -103,9 +103,11 @@ asm
 	hlt
 	hlt
 end;
 end;
 
 
-procedure _FPC_libc21_haltproc(e: longint); cdecl; assembler; public name '_haltproc';
-asm
-        push  e
-        call  libc_exit
-        hlt
-end;
+procedure _FPC_libc21_haltproc(e: longint); cdecl; public name '_haltproc';
+  begin
+    libc_exit(e);
+    { we should never return from libc_exit }
+    asm
+      hlt
+    end;
+  end;