paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Interlocked* fixed

Browse Source
This commit is contained in:
florian 2004-11-01 19:10:52 +00:00
parent 239dd7121e
commit 7fcfdd8606
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/x86_64/sysutilp.inc
View File

@ -20,8 +20,8 @@
function InterLockedDecrement (var Target: longint) : longint; assembler;
asm
movl $-1,%edx
xchgl %edx,%eax
movl $-1,%edx
xchgq %rdx,%rax
lock
xaddl %eax, (%rdx)
decl %eax
@ -31,7 +31,7 @@ end;
function InterLockedIncrement (var Target: longint) : longint; assembler;
asm
movl $1,%edx
xchgl %edx,%eax
xchgq %rdx,%rax
lock
xaddl %eax, (%rdx)
incl %eax
@ -47,7 +47,7 @@ end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; assembler;
asm
xchgl %eax,%edx
xchgq %rax,%rdx
lock
xaddl %eax, (%rdx)
end;
@ -55,10 +55,13 @@ end;
{
$Log$
Revision 1.2 2004-03-05 12:17:50 marco
Revision 1.3 2004-11-01 19:10:52 florian
* Interlocked* fixed
Revision 1.2 2004/03/05 12:17:50 marco
* interlocked* changed to longints, including winapi. (which was a bug)
Revision 1.1 2004/02/20 22:15:16 florian
+ x86_64 dependend sysutils part added
* some 64 bit adaptions
}
}