mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 05:59:28 +02:00
4fa2edc638
o uses new generic Linux syscall numbers, used for recent architectures git-svn-id: trunk@30895 -
128 lines
2.3 KiB
PHP
128 lines
2.3 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
|
|
Perform syscall with 0..6 arguments.
|
|
If syscall return value is negative, negate it, set errno, and return -1.
|
|
|
|
Written by Edmund Grimley Evans in 2015 and released into the public domain.
|
|
}
|
|
|
|
function FpSysCall(sysnr:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL0'];
|
|
asm
|
|
mov w8,w0
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|
|
|
|
function FpSysCall(sysnr,param1:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL1'];
|
|
asm
|
|
mov w8,w0
|
|
mov x0,x1
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|
|
|
|
function FpSysCall(sysnr,param1,param2:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL2'];
|
|
asm
|
|
mov w8,w0
|
|
mov x0,x1
|
|
mov x1,x2
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL3'];
|
|
asm
|
|
mov w8,w0
|
|
mov x0,x1
|
|
mov x1,x2
|
|
mov x2,x3
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL4'];
|
|
asm
|
|
mov w8,w0
|
|
mov x0,x1
|
|
mov x1,x2
|
|
mov x2,x3
|
|
mov x3,x4
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL5'];
|
|
asm
|
|
mov w8,w0
|
|
mov x0,x1
|
|
mov x1,x2
|
|
mov x2,x3
|
|
mov x3,x4
|
|
mov x4,x5
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|
|
|
|
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult;
|
|
assembler; nostackframe; [public,alias:'FPC_SYSCALL6'];
|
|
asm
|
|
mov w8,w0
|
|
mov x0,x1
|
|
mov x1,x2
|
|
mov x2,x3
|
|
mov x3,x4
|
|
mov x4,x5
|
|
mov x5,x6
|
|
svc #0
|
|
tbz x0,#63,.Ldone
|
|
str x30,[sp,#-16]!
|
|
neg x0,x0
|
|
bl seterrno
|
|
ldr x30,[sp],#16
|
|
mov x0,#-1
|
|
.Ldone:
|
|
end;
|