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

* 7 parameter syscall added. *BSD has calls with more params due to __syscall etc

Browse Source
This commit is contained in:
marco 2003-05-29 13:14:07 +00:00
parent 05c9ece088
commit 04926a9844
1 changed files with 32 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
rtl/bsd/powerpc/syscall.inc
View File

@ -7,18 +7,15 @@
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
Syscalls for NetBSD/macppc. Merged from an initial version,
Jonas' linux version and some testing checking.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 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 --- --- Main:The System Call Self ---
*****************************************************************************} *****************************************************************************}
@ -31,10 +28,9 @@ function FpSysCall(sysnr:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYS
asm asm
mr r0,r3 mr r0,r3
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
@ -47,10 +43,9 @@ asm
mr r0,r3 mr r0,r3
mr r3,r4 mr r3,r4
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
@ -65,10 +60,9 @@ asm
mr r3,r4 mr r3,r4
mr r4,r5 mr r4,r5
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
@ -83,11 +77,11 @@ asm
mr r4,r5 mr r4,r5
mr r5,r6 mr r5,r6
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
@ -103,10 +97,9 @@ asm
mr r5,r6 mr r5,r6
mr r6,r7 mr r6,r7
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
@ -123,10 +116,9 @@ asm
mr r6,r7 mr r6,r7
mr r7,r8 mr r7,r8
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
@ -145,15 +137,13 @@ asm
mr r7,r8 mr r7,r8
mr r8,r9 mr r8,r9
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL7'];
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6,param7:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL7'];
{ {
This function puts the registers in place, does the call, and then This function puts the registers in place, does the call, and then
copies back the registers as they are after the SysCall. copies back the registers as they are after the SysCall.
@ -168,21 +158,17 @@ asm
mr r8,r9 mr r8,r9
mr r9,r10 mr r9,r10
sc sc
blr bnslr
neg r3, r3 lis r4,Errno@ha
lis r4,(Errno+4)@ha stw r3,Errno@l(r4)
stw r3,(Errno+4)@l(r4)
li r3,-1 li r3,-1
end; end;
{ {
$Log$ $Log$
Revision 1.2 2003-05-25 13:51:58 jonas Revision 1.3 2003-05-29 13:14:07 marco
* several fixes, addition of Mach trap numbers (thye are simply syscalls * 7 parameter syscall added. *BSD has calls with more params due to __syscall etc
with a negative number)
Revision 1.6 2003/05/23 21:58:30 jonas
* fixed storing to errno for single threaded programs
Revision 1.5 2003/05/11 16:07:55 jonas Revision 1.5 2003/05/11 16:07:55 jonas
* fixed mmap for non-i386 non-m68k architectures (not sure about * fixed mmap for non-i386 non-m68k architectures (not sure about