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

* threadvars on x86_64 fixed

Browse Source
This commit is contained in:
florian 2005-02-05 23:49:49 +00:00
parent 9db91c3f23
commit 47534143af
2 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/threadvr.inc
View File

@ -67,7 +67,7 @@ begin
while tableEntry^.varaddr <> nil do
begin
newp:=CurrentTM.RelocateThreadVar(tableEntry^.varaddr^);
oldp:=pointer(pchar(tableEntry^.varaddr)+4);
oldp:=pointer(pchar(tableEntry^.varaddr)+sizeof(pointer));
move(oldp^,newp^,tableEntry^.size);
inc (pchar (tableEntry), sizeof (tableEntry^));
end;
@ -102,7 +102,10 @@ end;
{
$Log$
Revision 1.3 2004-11-01 20:37:49 florian
Revision 1.4 2005-02-05 23:49:49 florian
* threadvars on x86_64 fixed
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

33
rtl/linux/x86_64/syscall.inc
View File

@ -30,14 +30,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -56,14 +56,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -83,14 +83,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -111,14 +111,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -140,14 +140,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -170,14 +170,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -202,14 +202,14 @@ asm
movq fpc_threadvar_relocate_proc,%rax
testq %rax,%rax
jne .LThread
movq %rdx,Errno+8
movl %edx,Errno+8
jmp .LNoThread
.LThread:
pushq %rdx
movq Errno,%rdi
call *%rax
popq %rdx
movq %rdx,(%rax)
movl %edx,(%rax)
.LNoThread:
movq $-1,%rax
.LSyscOK:
@ -224,7 +224,10 @@ end;
{
$Log$
Revision 1.9 2004-12-12 14:30:27 peter
Revision 1.10 2005-02-05 23:49:49 florian
* threadvars on x86_64 fixed
Revision 1.9 2004/12/12 14:30:27 peter
* x86_64 updates
Revision 1.8 2004/05/28 21:37:34 peter