paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 15:29:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* comment removed and four dud instrcutions

Browse Source
This commit is contained in:
marco 2004-05-16 11:04:27 +00:00
parent 56d00c5aa2
commit cc5c75b714
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/x86_64/syscall.inc
View File

@ -16,18 +16,12 @@
**********************************************************************}
{$ASMMODE GAS}
function FpSysCall(sysnr:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL0'];
asm
movq sysnr, %rax { Syscall number -> rax. }
movq %rsi, %rdi { shift arg1 - arg5. }
movq %rdx, %rsi
movq %rcx, %rdx
movq %r8, %r10
movq %r9, %r8
syscall { Do the system call. }
cmpq $-4095, %rax { Check %rax for error. }
jnae .LSyscOK { Jump to error handler if error. }
@ -230,7 +224,10 @@ end;
{
$Log$
Revision 1.5 2004-04-22 17:17:23 peter
Revision 1.6 2004-05-16 11:04:27 marco
* comment removed and four dud instrcutions
Revision 1.5 2004/04/22 17:17:23 peter
* x86-64 fixes
Revision 1.4 2004/02/06 23:06:16 florian

8
rtl/linux/x86_64/syscallh.inc
View File

@ -28,9 +28,6 @@ type
// use int64, and typecast all calls that don't
// return off_t to cint.
// I don't think this is going to work on several platforms
// 64-bit machines don't have only 64-bit params.
TSysParam = int64;
function Do_SysCall(sysnr:TSysParam):TSysResult; external name 'FPC_SYSCALL0';
@ -43,7 +40,10 @@ function Do_SysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):T
{
$Log$
Revision 1.4 2004-04-22 17:17:23 peter
Revision 1.5 2004-05-16 11:04:27 marco
* comment removed and four dud instrcutions
Revision 1.4 2004/04/22 17:17:23 peter
* x86-64 fixes
Revision 1.3 2004/02/06 15:58:21 florian