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

* fixed InterlockedCompareExchange(64) of x86_64.inc (I dont know if win64 version is wrong also!)

Browse Source 
git-svn-id: trunk@6751 -
This commit is contained in:
ivost 2007-03-08 22:27:34 +00:00
parent fc0f2f3de6
commit f1e218ffe0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/x86_64/x86_64.inc
View File

@ -486,9 +486,9 @@ asm
lock lock
cmpxchgl %r8d,(%rcx) cmpxchgl %r8d,(%rcx)
{$else win64} {$else win64}
movl %esi,%eax movl %edx,%eax
lock lock
cmpxchgl %edx,(%rdi) cmpxchgl %esi,(%rdi)
{$endif win64} {$endif win64}
end; end;
@ -558,9 +558,9 @@ asm
lock lock
cmpxchgq %r8d,(%rcx) cmpxchgq %r8d,(%rcx)
{$else win64} {$else win64}
movq %rsi,%rax movq %rdx,%rax
lock lock
cmpxchgq %rdx,(%rdi) cmpxchgq %rsi,(%rdi)
{$endif win64} {$endif win64}
end; end;