From 52e51dddb1c3f1b52185b80d454e36fe19cb1568 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 17 Jun 2003 16:39:58 +0000
Subject: [PATCH]   * fixed old syscall handling for ppc

---
 rtl/linux/powerpc/syscall.inc | 13 +++++++------
 rtl/linux/syscallo.inc        |  9 +++++++--
 2 files changed, 14 insertions(+), 8 deletions(-)

diff --git a/rtl/linux/powerpc/syscall.inc b/rtl/linux/powerpc/syscall.inc
index f74215e2a3..5b0f4e4516 100644
--- a/rtl/linux/powerpc/syscall.inc
+++ b/rtl/linux/powerpc/syscall.inc
@@ -172,14 +172,12 @@ asm
   lwz  r4, 8(r4)
 { Go ! }
   sc
-  nop
+  bns  Lsyscall_ok
+  neg  r3,r3
+Lsyscall_ok:
 { Put back the registers... }
   lwz    r8, regs
   stw    r3, 0(r8)
-  stw    r4, 4(r8)
-  stw    r5, 8(r8)
-  stw    r6, 12(r8)
-  stw    r7, 16(r8)
 end;
 
 {$IFDEF SYSCALL_DEBUG}
@@ -238,7 +236,10 @@ end;
 
 {
   $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
 
   Revision 1.5  2003/05/11 16:07:55  jonas
diff --git a/rtl/linux/syscallo.inc b/rtl/linux/syscallo.inc
index 1c1cc9bbd3..10388cb21e 100644
--- a/rtl/linux/syscallo.inc
+++ b/rtl/linux/syscallo.inc
@@ -93,7 +93,9 @@ asm
   lwz  r4, 8(r4)
 { Go ! }
   sc
-  nop
+  bns  Lsyscallo_ok
+  neg  r3,r3
+Lsyscallo_ok:
 { Put back the registers... }
   lwz    r8, regs
   stw    r3, 0(r8)
@@ -184,7 +186,10 @@ end;
 
 {
   $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
 
   Revision 1.2  2003/04/22 17:07:55  florian