Browse Source

* ppc syscall code fixed

florian 23 years ago
parent
commit
7d0cfc8482
1 changed files with 15 additions and 12 deletions
  1. 15 12
      rtl/linux/syscalls.inc

+ 15 - 12
rtl/linux/syscalls.inc

@@ -90,22 +90,22 @@ var
   tmp: pointer;
   tmp: pointer;
 asm
 asm
 { load the registers... }
 { 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
   mr   r0, r3
-  lwz  r3, 0(r4)
+  lwz  r3, 4(r4)
   stw  r4, tmp
   stw  r4, tmp
-  lwz  r4, 4(r4)
+  lwz  r4, 8(r4)
 { Go ! }
 { Go ! }
   sc
   sc
 { Put back the registers... }
 { Put back the registers... }
   lwz    r0, tmp
   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;
 end;
 {$endif powerpc}
 {$endif powerpc}
 {$ifndef fpc_syscall_ok}
 {$ifndef fpc_syscall_ok}
@@ -582,7 +582,10 @@ end;
 
 
 {
 {
   $Log$
   $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
     + ppc support for do_syscall
 
 
   Revision 1.7  2002/07/29 21:28:17  florian
   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
     * merge unix updates from the 1.0 branch, mostly related to the
       solaris target
       solaris target
 
 
-}
+}