fpc/rtl/linux/aarch64/syscall.inc

{
  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;