* fixed *locked* routines

rtl/powerpc/sysutilp.inc

@@ -24,9 +24,9 @@ function InterLockedDecrement (var Target: integer) : Integer; assembler;
 { side-effect: target := target-1 }
 asm
 .LInterLockedDecLoop:
-        lwarx   r10,r10,r3
+        lwarx   r10,r0,r3
         subi    r10,r10,1
-        stwcx.  r10,r10,r3
+        stwcx.  r10,r0,r3
         bne     .LInterLockedDecLoop
         mr      r3,r10
 end;
@@ -38,9 +38,9 @@ function InterLockedIncrement (var Target: integer) : Integer; assembler;
 { side-effect: target := target+1 }
 asm
 .LInterLockedIncLoop:
-        lwarx   r10,r10,r3
+        lwarx   r10,r0,r3
         addi    r10,r10,1
-        stwcx.  r10,r10,r3
+        stwcx.  r10,r0,r3
         bne     .LInterLockedIncLoop
         mr      r3,r10
 end;
@@ -52,8 +52,8 @@ function InterLockedExchange (var Target: integer;Source : integer) : Integer; a
 { side-effect: target := source                 }
 asm
 .LInterLockedXchgLoop:
-        lwarx   r10,r10,r3
-        stwcx.  r4,r10,r3
+        lwarx   r10,r0,r3
+        stwcx.  r4,r0,r3
         bne     .LInterLockedXchgLoop
         mr      r3,r10
 end;
@@ -65,9 +65,9 @@ function InterLockedExchangeAdd (var Target: integer;Source : integer) : Integer
 { side-effect: target := target+source          }
 asm
 .LInterLockedXchgAddLoop:
-        lwarx   r10,r10,r3
+        lwarx   r10,r0,r3
         add     r10,r10,r4
-        stwcx.  r10,r10,r3
+        stwcx.  r10,r0,r3
         bne     .LInterLockedXchgAddLoop
         sub     r3,r10,r4
 end;
@@ -75,7 +75,10 @@ end;
 
 {
   $Log$
-  Revision 1.5  2003-11-29 16:27:19  jonas
+  Revision 1.6  2003-12-28 20:55:57  jonas
+    * fixed *locked* routines
+
+  Revision 1.5  2003/11/29 16:27:19  jonas
     * fixed several ppc assembler reader related problems
     * local vars in assembler procedures now start at offset 4
     * fixed second_int_to_bool (apparently an integer can be in  LOC_JUMP??)