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

* fixed return value of InterlockedCompareExchange(64) for ppc/ppc64,

Browse Source 
bug exposed by tw13281

git-svn-id: trunk@13133 -
This commit is contained in:
Jonas Maebe 2009-05-11 07:26:48 +00:00
parent 5ddddf60ae
commit a24db8854c
2 changed files with 3 additions and 3 deletions
rtl
powerpc
powerpc.inc
powerpc64
powerpc64.inc

2
rtl/powerpc/powerpc.inc
View File

@ -1174,7 +1174,7 @@ asm
or r6,r7,r8
stwcx. r6,0,r3
bne .LInterlockedCompareExchangeLoop
mr r3, r6
mr r3, r10
end;
{$IFDEF MORPHOS}

4
rtl/powerpc64/powerpc64.inc
View File

@ -682,7 +682,7 @@ asm
or r6,r7,r8
stwcx. r6,0,r3
bne .LInterlockedCompareExchangeLoop
mr r3, r6
mr r3, r10
end;
function InterLockedDecrement64(var Target: Int64) : Int64; assembler; nostackframe;
@ -754,7 +754,7 @@ asm
or r6,r7,r8
stdcx. r6,0,r3
bne .LInterlockedCompareExchangeLoop
mr r3, r6
mr r3, r10
end;
{$ifndef FPC_SYSTEM_HAS_MEM_BARRIER}