paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

haiku: properly pass on the exitcode to the haltproc on x86_64

Browse Source 
git-svn-id: trunk@40760 -
This commit is contained in:
Károly Balogh 2019-01-04 04:08:00 +00:00
parent d19cb0ee4c
commit 3508ad0d20
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/haiku/system.pp
View File

@ -34,6 +34,7 @@ function disable_debugger(state : integer): integer; cdecl; external 'root' name
{***************************************************************************** {*****************************************************************************
System Dependent Exit code System Dependent Exit code
*****************************************************************************} *****************************************************************************}
{$ifdef i386}
procedure prthaltproc;external name '_haltproc'; procedure prthaltproc;external name '_haltproc';
procedure system_exit; procedure system_exit;
@ -42,6 +43,14 @@ begin
jmp prthaltproc jmp prthaltproc
end; end;
End; End;
{$else i386}
procedure haltproc(exitcode: longint); cdecl; external name '_haltproc';
procedure system_exit;
begin
haltproc(ExitCode);
end;
{$endif i386}
{ OS dependant parts } { OS dependant parts }