paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Cleaned out assembler hacks around ExitCode variable

Browse Source 
git-svn-id: trunk@29559 -
This commit is contained in:
sergei 2015-01-26 19:55:58 +00:00
parent e2eb6dffbb
commit d6f5bcee45
1 changed files with 5 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
rtl/linux/i386/si_c21.inc
View File

@ -132,9 +132,8 @@ asm
hlt
end;
procedure _FPC_libc21_haltproc; assembler; nostackframe; public name '_haltproc';
procedure _FPC_libc21_haltproc(e: longint); cdecl; assembler; public name '_haltproc';
asm
.Lhaltproc:
{$ifdef FPC_PIC}
call .Lpiclab
.Lpiclab:
@ -150,49 +149,12 @@ asm
call *%eax
.Lnodlexitproc:
movl syscall_nr_exit_group,%eax
{$ifdef FPC_PIC}
call .Lpiclab2
.Lpiclab2:
popl %ebx
addl $_GLOBAL_OFFSET_TABLE_+1,%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 .Lpiclab3
.Lpiclab3:
popl %ebx
addl $_GLOBAL_OFFSET_TABLE_+1,%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;