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

* Don't use changed registers list. Save used registers directly in asm code.

Browse Source 
git-svn-id: trunk@8201 -
This commit is contained in:
yury 2007-07-30 17:26:45 +00:00
parent 87d67dcad6
commit b0834a01a0
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/linux/arm/syscall.inc
View File

@ -72,9 +72,11 @@ function FpSysCall(sysnr,param1,param2,param3,param4:TSysParam):TSysResult; asse
This function loads some parameters from stack and calls FPC_SYSCALL0.
}
asm
stmfd sp!,{r4}
ldr r4,param4
bl FPC_SYSCALL
end ['r4'];
ldmfd sp!,{r4}
end;
function FpSysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL5'];
@ -82,10 +84,12 @@ function FpSysCall(sysnr,param1,param2,param3,param4,param5:TSysParam):TSysResul
This function loads some parameters from stack and calls FPC_SYSCALL0.
}
asm
stmfd sp!,{r4,r5}
ldr r4,param4
ldr r5,param5
bl FPC_SYSCALL
end ['r4','r5'];
ldmfd sp!,{r4,r5}
end;
function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TSysResult; assembler;[public,alias:'FPC_SYSCALL6'];
@ -93,8 +97,10 @@ function FpSysCall(sysnr,param1,param2,param3,param4,param5,param6:TSysParam):TS
This function loads some parameters from stack and calls FPC_SYSCALL0.
}
asm
stmfd sp!,{r4,r5,r6}
ldr r4,param4
ldr r5,param5
ldr r6,param6
bl FPC_SYSCALL
end ['r4','r5','r6'];
ldmfd sp!,{r4,r5,r6}
end;