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

* fixed old syscall handling for ppc

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-17 16:39:58 +00:00
parent 394b70f94d
commit 52e51dddb1
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/linux/powerpc/syscall.inc
View File

@ -172,14 +172,12 @@ asm
lwz r4, 8(r4) lwz r4, 8(r4)
{ Go ! } { Go ! }
sc sc
nop bns Lsyscall_ok
neg r3,r3
Lsyscall_ok:
{ Put back the registers... } { Put back the registers... }
lwz r8, regs lwz r8, regs
stw r3, 0(r8) stw r3, 0(r8)
stw r4, 4(r8)
stw r5, 8(r8)
stw r6, 12(r8)
stw r7, 16(r8)
end; end;
{$IFDEF SYSCALL_DEBUG} {$IFDEF SYSCALL_DEBUG}
@ -238,7 +236,10 @@ end;
{ {
$Log$ $Log$
Revision 1.6 2003-05-23 21:58:30 jonas Revision 1.7 2003-06-17 16:39:58 jonas
* fixed old syscall handling for ppc
Revision 1.6 2003/05/23 21:58:30 jonas
* fixed storing to errno for single threaded programs * 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

9
rtl/linux/syscallo.inc
View File

@ -93,7 +93,9 @@ asm
lwz r4, 8(r4) lwz r4, 8(r4)
{ Go ! } { Go ! }
sc sc
nop bns Lsyscallo_ok
neg r3,r3
Lsyscallo_ok:
{ Put back the registers... } { Put back the registers... }
lwz r8, regs lwz r8, regs
stw r3, 0(r8) stw r3, 0(r8)
@ -184,7 +186,10 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2003-06-04 15:18:14 peter Revision 1.4 2003-06-17 16:39:58 jonas
* fixed old syscall handling for ppc
Revision 1.3 2003/06/04 15:18:14 peter
* compile fix for systhrds * compile fix for systhrds
Revision 1.2 2003/04/22 17:07:55 florian Revision 1.2 2003/04/22 17:07:55 florian