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

* renamed "r0" usages as base register to 0

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-04 20:09:36 +00:00
parent d6743c1491
commit f1f2523085
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/powerpc/sysutilp.inc
View File

@ -24,9 +24,9 @@ function InterLockedDecrement (var Target: integer) : Integer; assembler;
{ side-effect: target := target-1 } { side-effect: target := target-1 }
asm asm
.LInterLockedDecLoop: .LInterLockedDecLoop:
lwarx r10,r0,r3 lwarx r10,0,r3
subi r10,r10,1 subi r10,r10,1
stwcx. r10,r0,r3 stwcx. r10,0,r3
bne .LInterLockedDecLoop bne .LInterLockedDecLoop
mr r3,r10 mr r3,r10
end; end;
@ -38,9 +38,9 @@ function InterLockedIncrement (var Target: integer) : Integer; assembler;
{ side-effect: target := target+1 } { side-effect: target := target+1 }
asm asm
.LInterLockedIncLoop: .LInterLockedIncLoop:
lwarx r10,r0,r3 lwarx r10,0,r3
addi r10,r10,1 addi r10,r10,1
stwcx. r10,r0,r3 stwcx. r10,0,r3
bne .LInterLockedIncLoop bne .LInterLockedIncLoop
mr r3,r10 mr r3,r10
end; end;
@ -52,8 +52,8 @@ function InterLockedExchange (var Target: integer;Source : integer) : Integer; a
{ side-effect: target := source } { side-effect: target := source }
asm asm
.LInterLockedXchgLoop: .LInterLockedXchgLoop:
lwarx r10,r0,r3 lwarx r10,0,r3
stwcx. r4,r0,r3 stwcx. r4,0,r3
bne .LInterLockedXchgLoop bne .LInterLockedXchgLoop
mr r3,r10 mr r3,r10
end; end;
@ -65,9 +65,9 @@ function InterLockedExchangeAdd (var Target: integer;Source : integer) : Integer
{ side-effect: target := target+source } { side-effect: target := target+source }
asm asm
.LInterLockedXchgAddLoop: .LInterLockedXchgAddLoop:
lwarx r10,r0,r3 lwarx r10,0,r3
add r10,r10,r4 add r10,r10,r4
stwcx. r10,r0,r3 stwcx. r10,0,r3
bne .LInterLockedXchgAddLoop bne .LInterLockedXchgAddLoop
sub r3,r10,r4 sub r3,r10,r4
end; end;
@ -75,7 +75,10 @@ end;
{ {
$Log$ $Log$
Revision 1.6 2003-12-28 20:55:57 jonas Revision 1.7 2004-01-04 20:09:36 jonas
* renamed "r0" usages as base register to 0
Revision 1.6 2003/12/28 20:55:57 jonas
* fixed *locked* routines * fixed *locked* routines
Revision 1.5 2003/11/29 16:27:19 jonas Revision 1.5 2003/11/29 16:27:19 jonas