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

* fixed arm asssembler, { ... } comments aren't allowed because { ... } is used for register sets

Browse Source 
git-svn-id: trunk@3527 -
This commit is contained in:
florian 2006-05-14 16:17:48 +00:00
parent 1d9b6ed5f0
commit 72a8c36bdb
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/linux/ossysc.inc
View File

@ -218,35 +218,41 @@ end;
{$ifdef NEED_USER_TRAMPOLINE}
procedure linux_restore; cdecl; nostackframe; assembler;
asm
{$ifdef cpuarm}
swi __NR_sigreturn;
asm
swi syscall_nr_sigreturn
end;
{$endif}
{$ifdef cpui386}
asm
popl %eax
movl $syscall_nr_sigreturn, %eax
int $0x80
end;
{$endif}
{$ifdef cpux86_64}
asm
movq $syscall_nr_rt_sigreturn, %rax
syscall
{$endif}
end;
{$endif}
{$endif}
{$ifdef NEED_USER_TRAMPOLINE_RT_DIFFERENT}
procedure linux_restore_rt; cdecl; nostackframe; assembler;
{$ifdef cpuarm}
asm
{$ifdef cpuarm}
swi syscall_nr_rt_sigreturn
swi syscall_nr_rt_sigreturn
end;
{$endif}
{$ifdef cpui386}
asm
movl $syscall_nr_rt_sigreturn, %eax
int $0x80
{$endif}
end;
{$endif}
{$endif}
@ -275,8 +281,8 @@ begin
else
{$endif}
new_action^.sa_restorer := @linux_restore;
end;
end;
end;
end;
{$endif}
Fpsigaction:=do_syscall(syscall_nr_rt_sigaction,TSysParam(sig),TSysParam(new_action),TSysParam(old_action),TSysParam(8));
{$endif cpusparc}
@ -547,7 +553,7 @@ end;
function FpGetRLimit(resource : cInt; rlim : PRLimit) : cInt;
begin
FpGetRLimit := do_syscall(syscall_nr_getrlimit,
FpGetRLimit := do_syscall(syscall_nr_getrlimit,
TSysParam(resource), TSysParam(rlim));
end;