paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compile after exitcode size change

Browse Source 
git-svn-id: trunk@6559 -
This commit is contained in:
peter 2007-02-19 16:11:01 +00:00
parent 59f3041e67
commit d1d7c59244
6 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/i386/si_c.inc
View File

@ -92,7 +92,11 @@ end;
procedure _FPC_libc_haltproc; assembler; nostackframe; public name '_haltproc'; procedure _FPC_libc_haltproc; assembler; nostackframe; public name '_haltproc';
asm asm
.Lhaltproc: .Lhaltproc:
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%ebx movzwl ExitCode,%ebx
{$else}
mov ExitCode,%ebx
{$endif}
pushl %ebx pushl %ebx
call libc_exit call libc_exit
xorl %eax,%eax xorl %eax,%eax

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

@ -100,7 +100,11 @@ end;
procedure _FPC_libc21_haltproc; assembler; nostackframe; public name '_haltproc'; procedure _FPC_libc21_haltproc; assembler; nostackframe; public name '_haltproc';
asm asm
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%eax movzwl ExitCode,%eax
{$else}
mov ExitCode,%eax
{$endif}
movl libc21_fpc_ret,%edx { return to libc } movl libc21_fpc_ret,%edx { return to libc }
movl libc21_fpc_ret_ebp,%ebp movl libc21_fpc_ret_ebp,%ebp

4
rtl/linux/i386/si_c21g.inc
View File

@ -131,7 +131,11 @@ end;
procedure _FPC_libc21_gprof_haltproc; assembler; nostackframe; public name '_haltproc'; procedure _FPC_libc21_gprof_haltproc; assembler; nostackframe; public name '_haltproc';
asm asm
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%eax movzwl ExitCode,%eax
{$else}
mov ExitCode,%eax
{$endif}
movl libc21_fpc_ret,%edx { return to libc } movl libc21_fpc_ret,%edx { return to libc }
movl libc21_fpc_ret_ebx,%ebx movl libc21_fpc_ret_ebx,%ebx

4
rtl/linux/i386/si_dll.inc
View File

@ -87,7 +87,11 @@ asm
{$ifdef FPC_PIC} {$ifdef FPC_PIC}
pushl %ebx pushl %ebx
movl ExitCode@GOT(%ebx),%ebx movl ExitCode@GOT(%ebx),%ebx
{$if sizeof(ExitCode)=2}
movzwl (%ebx),%ebx movzwl (%ebx),%ebx
{$else}
mov (%ebx),%ebx
{$endif}
{$endif} {$endif}
int $0x80 int $0x80
jmp .Lhaltproc jmp .Lhaltproc

4
rtl/linux/i386/si_g.inc
View File

@ -89,7 +89,11 @@ end;
procedure _FPC_proc_gprof_haltproc; assembler; nostackframe; public name '_haltproc'; procedure _FPC_proc_gprof_haltproc; assembler; nostackframe; public name '_haltproc';
asm asm
.Lhaltproc: .Lhaltproc:
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%ebx movzwl ExitCode,%ebx
{$else}
mov ExitCode,%ebx
{$endif}
pushl %ebx pushl %ebx
call libc_exit { call libc exit, this will write the gmon.out } call libc_exit { call libc exit, this will write the gmon.out }
movl syscall_nr_exit_group,%eax movl syscall_nr_exit_group,%eax

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

@ -70,10 +70,18 @@ procedure _FPC_proc_haltproc; assembler; nostackframe; public name '_haltproc';
asm asm
.Lhaltproc: .Lhaltproc:
movl syscall_nr_exit_group,%eax movl syscall_nr_exit_group,%eax
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%ebx movzwl ExitCode,%ebx
{$else}
mov ExitCode,%ebx
{$endif}
int $0x80 int $0x80
movl syscall_nr_exit,%eax movl syscall_nr_exit,%eax
{$if sizeof(ExitCode)=2}
movzwl ExitCode,%ebx movzwl ExitCode,%ebx
{$else}
mov ExitCode,%ebx
{$endif}
int $0x80 int $0x80
jmp .Lhaltproc jmp .Lhaltproc
end; end;