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

* ppc syscall code fixed

Browse Source
This commit is contained in:
florian 2002-09-02 20:03:20 +00:00
parent f2393f7316
commit 7d0cfc8482
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/linux/syscalls.inc
View File

@ -90,22 +90,22 @@ var
tmp: pointer;
asm
{ load the registers... }
lwz r5, 8(r4)
lwz r6, 12(r4)
lwz r7, 16(r4)
lwz r5, 12(r4)
lwz r6, 16(r4)
lwz r7, 20(r4)
mr r0, r3
lwz r3, 0(r4)
lwz r3, 4(r4)
stw r4, tmp
lwz r4, 4(r4)
lwz r4, 8(r4)
{ Go ! }
sc
{ Put back the registers... }
lwz r0, tmp
stw r3, 0(r0)
stw r4, 4(r0)
stw r5, 8(r0)
stw r6, 12(r0)
stw r7, 16(r0)
stw r3, 4(r0)
stw r4, 8(r0)
stw r5, 12(r0)
stw r6, 16(r0)
stw r7, 20(r0)
end;
{$endif powerpc}
{$ifndef fpc_syscall_ok}
@ -582,7 +582,10 @@ end;
{
$Log$
Revision 1.8 2002-08-19 18:24:05 jonas
Revision 1.9 2002-09-02 20:03:20 florian
* ppc syscall code fixed
Revision 1.8 2002/08/19 18:24:05 jonas
+ ppc support for do_syscall
Revision 1.7 2002/07/29 21:28:17 florian
@ -599,4 +602,4 @@ end;
* merge unix updates from the 1.0 branch, mostly related to the
solaris target
}
}