mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-10 11:18:45 +02:00
132 lines
3.2 KiB
PHP
132 lines
3.2 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2003 by Florian Klaempfl,
|
|
member of the Free Pascal development team.
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{No debugging for syslinux include !}
|
|
{$IFDEF SYS_LINUX}
|
|
{$UNDEF SYSCALL_DEBUG}
|
|
{$ENDIF SYS_LINUX}
|
|
|
|
|
|
{*****************************************************************************
|
|
--- Main:The System Call Self ---
|
|
*****************************************************************************}
|
|
|
|
{$ifdef FPC_ABI_EABI}
|
|
function FpSysCall(sysnr:TSysParam):TSysResult; assembler; nostackframe; [public,alias:'FPC_SYSCALL0'];
|
|
{
|
|
Perform syscall and set errno variable if needed.
|
|
}
|
|
asm
|
|
{ for now we are lazy }
|
|
mov r7,r0
|
|
mov r0,r1
|
|
mov r1,r2
|
|
mov r2,r3
|
|
mov r3,r4
|
|
mov r4,r5
|
|
mov r5,r6
|
|
swi #0x0
|
|
cmn r0,#126
|
|
movls pc,lr
|
|
stmfd sp!,{lr}
|
|
rsb r0,r0,#0
|
|
bl seterrno
|
|
mvn r0,#0
|
|
ldmfd sp!,{pc}
|
|
end;
|
|
{$else FPC_ABI_EABI}
|
|
function FpSysCall(sysnr:TSysParam):TSysResult; assembler; nostackframe; [public,alias:'FPC_SYSCALL0'];
|
|
{
|
|
Perform syscall and set errno variable if needed.
|
|
}
|
|
asm
|
|
swi #0x900071
|
|
cmn r0,#126
|
|
movls pc,lr
|
|
stmfd sp!,{lr}
|
|
rsb r0,r0,#0
|
|
bl seterrno
|
|
mvn r0,#0
|
|
ldmfd sp!,{pc}
|
|
end;
|
|
{$endif FPC_ABI_EABI}
|
|
|
|
|
|
procedure FPC_SYSCALL; external name 'FPC_SYSCALL0';
|
|
|
|
function FpSysCall(sysnr,param1:TSysParam):TSysResult; assembler; nostackframe; [public,alias:'FPC_SYSCALL1'];
|
|
{
|
|
Jump to FPC_SYSCALL0 because code for FPC_SYSCALL0-FPC_SYSCALL3 is the same.
|
|
}
|
|
asm
|
|
b FPC_SYSCALL
|
|
end;
|
|
|
|
|
|
function FpSysCall(sysnr,param1,param2:TSysParam):TSysResult; assembler; nostackframe; [public,alias:'FPC_SYSCALL2'];
|
|
{
|
|
Jump to FPC_SYSCALL0 because code for FPC_SYSCALL0-FPC_SYSCALL3 is the same.
|
|
}
|
|
asm
|
|
b FPC_SYSCALL
|
|
end;
|
|
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler; nostackframe; [public,alias:'FPC_SYSCALL3'];
|
|
{
|
|
Jump to FPC_SYSCALL0 because code for FPC_SYSCALL0-FPC_SYSCALL3 is the same.
|
|
}
|
|
asm
|
|
b FPC_SYSCALL
|
|
end;
|
|
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL4'];
|
|
{
|
|
This function loads some parameters from stack and calls FPC_SYSCALL0.
|
|
}
|
|
asm
|
|
stmfd sp!,{r4}
|
|
ldr r4,param4
|
|
bl FPC_SYSCALL
|
|
ldmfd sp!,{r4}
|
|
end;
|
|
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL5'];
|
|
{
|
|
This function loads some parameters from stack and calls FPC_SYSCALL0.
|
|
}
|
|
asm
|
|
stmfd sp!,{r4,r5}
|
|
ldr r4,param4
|
|
ldr r5,param5
|
|
bl FPC_SYSCALL
|
|
ldmfd sp!,{r4,r5}
|
|
end;
|
|
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL6'];
|
|
{
|
|
This function loads some parameters from stack and calls FPC_SYSCALL0.
|
|
}
|
|
asm
|
|
stmfd sp!,{r4,r5,r6}
|
|
ldr r4,param4
|
|
ldr r5,param5
|
|
ldr r6,param6
|
|
bl FPC_SYSCALL
|
|
ldmfd sp!,{r4,r5,r6}
|
|
end;
|