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

* fixed syscall6 (still experimental, but so far it worked here!)

Browse Source 
git-svn-id: trunk@6705 -
This commit is contained in:
ivost 2007-03-03 21:38:20 +00:00
parent c3f22aae94
commit 240938a6ed
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/linux/i386/syscall.inc
View File

@ -232,19 +232,22 @@ asm
.LSyscOK:
end;
{$ifdef notsupported}
{.$ifdef notsupported}
{ Only 5 params are pushed, so it'll not work as expected (PFV) }
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6 : TSysParam):TSysResult; assembler; oldfpccall;[public,alias:'FPC_SYSCALL6'];
asm
{ load the registers... }
push %ebp
movl sysnr,%eax
movl param1,%ebx
movl param2,%ecx
movl param3,%edx
movl param4,%esi
movl param5,%edi
movl param6,%ebp
int $0x80
pop %ebp
cmpl $-4095,%eax
jb .LSyscOK
negl %eax
@ -271,7 +274,7 @@ asm
movl $-1,%eax
.LSyscOK:
end;
{$endif notsupported}
{.$endif notsupported}
{No debugging for syslinux include !}
{$IFDEF SYS_LINUX}

4
rtl/linux/i386/syscallh.inc
View File

@ -39,7 +39,7 @@ function Do_SysCall(sysnr,param1,param2:TSysParam):TSysResult; oldfpccall; exte
function Do_SysCall(sysnr,param1,param2,param3:TSysParam):TSysResult; oldfpccall; external name 'FPC_SYSCALL3';
function Do_SysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; oldfpccall; external name 'FPC_SYSCALL4';
function Do_SysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; oldfpccall; external name 'FPC_SYSCALL5';
{$ifdef notsupported}
{.$ifdef notsupported}
function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; oldfpccall; external name 'FPC_SYSCALL6';
{$endif notsupported}
{.$endif notsupported}