paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement SysCall interface for m68k-linux. This is especially useful for testing code using

Browse Source 
QEMU's userspace emulation as no libraries are needed then.

git-svn-id: trunk@22750 -
This commit is contained in:
svenbarth 2012-10-18 20:12:32 +00:00
parent ca6ca31953
commit 7bc5995d4d
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
rtl/linux/m68k/syscall.inc
View File

@ -23,35 +23,77 @@
function FpSysCall(sysnr:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL0'];
asm
move.l sysnr, d0
trap #0
move.l d0, @Result
end;
function FpSysCall(sysnr,param1:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL1'];
asm
move.l sysnr, d0
move.l param1, d1
trap #0
move.l d0, @Result
end;
function FpSysCall(sysnr,param1,param2:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL2'];
asm
move.l sysnr, d0
move.l param1, d1
move.l param2, d2
trap #0
move.l d0, @Result
end;
function FpSysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL3'];
asm
move.l sysnr, d0
move.l param1, d1
move.l param2, d2
move.l param3, d3
trap #0
move.l d0, @Result
end;
function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL4'];
asm
move.l sysnr, d0
move.l param1, d1
move.l param2, d2
move.l param3, d3
move.l param4, d4
trap #0
move.l d0, @Result
end;
function FpSysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL5'];
asm
move.l sysnr, d0
move.l param1, d1
move.l param2, d2
move.l param3, d3
move.l param4, d4
move.l param5, d5
trap #0
move.l d0, @Result
end;
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; assembler; [public,alias:'FPC_SYSCALL6'];
asm
move.l sysnr, d0
move.l param1, d1
move.l param2, d2
move.l param3, d3
move.l param4, d4
move.l param5, d5
move.l param6, a0
trap #0
move.l d0, @Result
end;