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

* fixed InterlockedCompareExchange

Browse Source 
git-svn-id: trunk@3947 -
This commit is contained in:
Jonas Maebe 2006-06-25 18:52:12 +00:00
parent fe43dc6266
commit b9125f97d0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/i386/i386.inc
View File

@ -1176,13 +1176,14 @@ end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; assembler;
asm
{$ifdef REGCALL}
xchgl %eax,%edx
xchgl %eax,%ecx
{$else}
movl Target,%edx
movl NewValue,%eax
movl Target,%ecx
movl NewValue,%edx
movl Comparand,%eax
{$endif}
lock
cmpxchgl %eax, (%edx)
cmpxchgl %edx, (%ecx)
end;