From f1e218ffe03e248d3176cb20863183504c137b4f Mon Sep 17 00:00:00 2001
From: ivost <ivost@idefix.freepascal.org>
Date: Thu, 8 Mar 2007 22:27:34 +0000
Subject: [PATCH]     * fixed InterlockedCompareExchange(64) of x86_64.inc (I
 dont know if win64 version is wrong also!)

git-svn-id: trunk@6751 -
---
 rtl/x86_64/x86_64.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/x86_64/x86_64.inc b/rtl/x86_64/x86_64.inc
index 1df780670c..4b23268190 100644
--- a/rtl/x86_64/x86_64.inc
+++ b/rtl/x86_64/x86_64.inc
@@ -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;