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

- Cleaned out more assembler hacks around ExitCode variable

Browse Source 
git-svn-id: trunk@29560 -
This commit is contained in:
sergei 2015-01-26 20:08:11 +00:00
parent d6f5bcee45
commit 2efa348b19
1 changed files with 5 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/linux/i386/si_prc.inc
View File

@ -116,10 +116,9 @@ asm
end;
procedure _FPC_proc_haltproc; assembler; nostackframe; public name '_haltproc';
procedure _FPC_proc_haltproc(e:longint); cdecl; assembler; public name '_haltproc';
asm
addl $12, %esp { align stack back to 16 bytes }
.Lhaltproc:
//addl $12, %esp { align stack back to 16 bytes }
{$ifdef FPC_PIC}
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
@ -134,44 +133,12 @@ asm
.Lnodlexitproc:
movl syscall_nr_exit_group,%eax
{$ifdef FPC_PIC}
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
movl ExitCode@GOT(%ebx),%ebx
{$if sizeof(ExitCode)=2}
movzwl (%ebx),%ebx
{$else}
mov (%ebx),%ebx
{$endif}
{$else FPC_PIC}
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%ebx
{$else}
mov ExitCode,%ebx
{$endif}
{$endif FPC_PIC}
movl e,%ebx
int $0x80
movl syscall_nr_exit,%eax
{$ifdef FPC_PIC}
call fpc_geteipasebxlocal
addl $_GLOBAL_OFFSET_TABLE_,%ebx
movl ExitCode@GOT(%ebx),%ebx
{$if sizeof(ExitCode)=2}
movzwl (%ebx),%ebx
{$else}
mov (%ebx),%ebx
{$endif}
{$else FPC_PIC}
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%ebx
{$else}
mov ExitCode,%ebx
{$endif}
{$endif FPC_PIC}
movl e,%ebx
int $0x80
jmp .Lhaltproc
jmp .Lnodlexitproc
end;