paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +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; function InterLockedDecrement (var Target: longint) : longint; assembler;
asm asm
movl $-1,%edx movl $-1,%edx
xchgl %edx,%eax xchgq %rdx,%rax
lock lock
xaddl %eax, (%rdx) xaddl %eax, (%rdx)
decl %eax decl %eax
@ -31,7 +31,7 @@ end;
function InterLockedIncrement (var Target: longint) : longint; assembler; function InterLockedIncrement (var Target: longint) : longint; assembler;
asm asm
movl $1,%edx movl $1,%edx
xchgl %edx,%eax xchgq %rdx,%rax
lock lock
xaddl %eax, (%rdx) xaddl %eax, (%rdx)
incl %eax incl %eax
@ -47,7 +47,7 @@ end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; assembler; function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; assembler;
asm asm
xchgl %eax,%edx xchgq %rax,%rdx
lock lock
xaddl %eax, (%rdx) xaddl %eax, (%rdx)
end; end;
@ -55,10 +55,13 @@ end;
{ {
$Log$ $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) * interlocked* changed to longints, including winapi. (which was a bug)
Revision 1.1 2004/02/20 22:15:16 florian Revision 1.1 2004/02/20 22:15:16 florian
+ x86_64 dependend sysutils part added + x86_64 dependend sysutils part added
* some 64 bit adaptions * some 64 bit adaptions
} }