paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 22:10:27 +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
cmpxchgl %r8d,(%rcx)
{$else win64}
movl %esi,%eax
movl %edx,%eax
lock
cmpxchgl %edx,(%rdi)
cmpxchgl %esi,(%rdi)
{$endif win64}
end;
@ -558,9 +558,9 @@ asm
lock
cmpxchgq %r8d,(%rcx)
{$else win64}
movq %rsi,%rax
movq %rdx,%rax
lock
cmpxchgq %rdx,(%rdi)
cmpxchgq %rsi,(%rdi)
{$endif win64}
end;