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

* fixed InterlockedCompareExchange(64) of x86_64.inc for win64 too

Browse Source 
git-svn-id: trunk@6798 -
This commit is contained in:
florian 2007-03-11 22:28:08 +00:00
parent 9f5238c2f4
commit 87bc8a4471
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

@ -482,9 +482,9 @@ end;
function InterLockedCompareExchange(var Target: longint; NewValue, Comperand : longint): longint; assembler; function InterLockedCompareExchange(var Target: longint; NewValue, Comperand : longint): longint; assembler;
asm asm
{$ifdef win64} {$ifdef win64}
movl %edx,%eax movl %r8d,%eax
lock lock
cmpxchgl %r8d,(%rcx) cmpxchgl %edx,(%rcx)
{$else win64} {$else win64}
movl %edx,%eax movl %edx,%eax
lock lock
@ -554,9 +554,9 @@ end;
function InterLockedCompareExchange64(var Target: int64; NewValue, Comperand : int64): int64; assembler; function InterLockedCompareExchange64(var Target: int64; NewValue, Comperand : int64): int64; assembler;
asm asm
{$ifdef win64} {$ifdef win64}
movq %rdx,%rax movq %r8,%rax
lock lock
cmpxchgq %r8d,(%rcx) cmpxchgq %rdx,(%rcx)
{$else win64} {$else win64}
movq %rdx,%rax movq %rdx,%rax
lock lock