paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some x86-64 multithreading stuff

Browse Source
This commit is contained in:
florian 2004-11-01 20:37:49 +00:00
parent 90f7f25d03
commit 041dfe7b99
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/threadvr.inc
View File

@ -29,9 +29,9 @@ type
size : longint; size : longint;
end; end;
TltvInitTablesTable = record TltvInitTablesTable = packed record
count : dword; count : dword;
tables : array [1..32767] of pltvInitEntry; tables : packed array [1..32767] of pltvInitEntry;
end; end;
var var
@ -102,7 +102,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2003-11-26 20:10:59 michael Revision 1.3 2004-11-01 20:37:49 florian
* fixed some x86-64 multithreading stuff
Revision 1.2 2003/11/26 20:10:59 michael
+ New threadmanager implementation + New threadmanager implementation
Revision 1.1 2002/10/31 13:46:11 carl Revision 1.1 2002/10/31 13:46:11 carl

20
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 %rdi,%rax movq %rdi,%rax
movl $-1,%edx movl $-1,%edx
xchgq %rdx,%rax xchgq %rdx,%rax
lock lock
xaddl %eax, (%rdx) xaddl %eax, (%rdx)
@ -31,7 +31,7 @@ end;
function InterLockedIncrement (var Target: longint) : longint; assembler; function InterLockedIncrement (var Target: longint) : longint; assembler;
asm asm
movl %rdi,%rax movq %rdi,%rax
movl $1,%edx movl $1,%edx
xchgq %rdx,%rax xchgq %rdx,%rax
lock lock
@ -42,8 +42,8 @@ end;
function InterLockedExchange (var Target: longint;Source : longint) : longint; assembler; function InterLockedExchange (var Target: longint;Source : longint) : longint; assembler;
asm asm
xchgl (%rdi),%rsi xchgl (%rdi),%esi
movl %rsi,%eax movl %esi,%eax
end; end;
@ -51,13 +51,17 @@ function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint
asm asm
xchgq %rdi,%rsi xchgq %rdi,%rsi
lock lock
xaddl %rdi, (%rsi) xaddl %edi, (%rsi)
movl %edi,%eax
end; end;
{ {
$Log$ $Log$
Revision 1.4 2004-11-01 20:31:35 florian Revision 1.5 2004-11-01 20:37:49 florian
* fixed some x86-64 multithreading stuff
Revision 1.4 2004/11/01 20:31:35 florian
* another fix for locked reference counting * another fix for locked reference counting
Revision 1.2 2004/03/05 12:17:50 marco Revision 1.2 2004/03/05 12:17:50 marco
@ -66,4 +70,4 @@ end;
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
} }