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

* Use RIP relative symbol addressing in assembler blocks. Finally bug #13657 is fixed.

Browse Source 
git-svn-id: trunk@13137 -
This commit is contained in:
yury 2009-05-13 10:45:54 +00:00
parent 82ad6b4de9
commit bba2b87064
3 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win64/system.pp
View File

@ -405,7 +405,11 @@ procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
asm
xorl %rax,%rax
movw %ss,%ax
{$ifdef FPC_HAS_RIP_RELATIVE}
movl %eax,_SS(%rip)
{$else}
movl %eax,_SS
{$endif}
xorl %rbp,%rbp
call PASCALMAIN
popq %rbp

4
rtl/x86_64/math.inc
View File

@ -45,9 +45,9 @@ FPC_ABSMASK_DOUBLE:
fnclex
fldcw (%rdx)
{$else FPC_PIC}
movw %ax,default8087cw
movw %ax,default8087cw{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
fnclex
fldcw default8087cw
fldcw default8087cw{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{$endif FPC_PIC}
end;

20
rtl/x86_64/x86_64.inc
View File

@ -266,7 +266,7 @@ function declocked(var l : longint) : boolean;assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
jz .Ldeclockednolock
lock
decl (%rcx)
@ -285,7 +285,7 @@ function declocked(var l : longint) : boolean;assembler;
movq IsMultithread@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{$endif FPC_PIC}
jz .Ldeclockednolock
lock
@ -308,7 +308,7 @@ function declocked(var l : int64) : boolean;assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
jz .Ldeclockednolock
lock
decq (%rcx)
@ -327,7 +327,7 @@ function declocked(var l : int64) : boolean;assembler;
movq IsMultithread@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{$endif FPC_PIC}
jz .Ldeclockednolock
lock
@ -351,7 +351,7 @@ procedure inclocked(var l : longint);assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
jz .Linclockednolock
lock
incl (%rcx)
@ -369,7 +369,7 @@ procedure inclocked(var l : longint);assembler;
movq IsMultithread@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{$endif FPC_PIC}
jz .Linclockednolock
lock
@ -392,7 +392,7 @@ procedure inclocked(var l : int64);assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
jz .Linclockednolock
lock
incq (%rcx)
@ -410,7 +410,7 @@ procedure inclocked(var l : int64);assembler;
movq IsMultithread@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
cmpb $0,IsMultithread{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{$endif FPC_PIC}
jz .Linclockednolock
lock
@ -604,9 +604,9 @@ begin
movq mxcsr@GOTPCREL(%rip),%rax
ldmxcsr (%rax)
{$else FPC_PIC}
fldcw fpucw
fldcw fpucw{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{ set sse exceptions }
ldmxcsr mxcsr
ldmxcsr mxcsr{$ifdef FPC_HAS_RIP_RELATIVE}(%rip){$endif}
{$endif FPC_PIC}
end ['RAX'];
{ x86-64 might use softfloat code }