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

* some PIC ifdefs

Browse Source
This commit is contained in:
florian 2005-02-05 22:30:50 +00:00
parent ea133d5094
commit 29532aa635
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/x86_64/x86_64.inc
View File

@ -251,7 +251,12 @@ function declocked(var l : longint) : boolean;assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
{$ifdef FPC_PIC}
movq IsMultithreaded@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
{$endif FPC_PIC}
jz .Ldeclockednolock
lock
decl (%rdi)
@ -271,7 +276,12 @@ function declocked(var l : int64) : boolean;assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
{$ifdef FPC_PIC}
movq IsMultithreaded@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
{$endif FPC_PIC}
jz .Ldeclockednolock
lock
decq (%rdi)
@ -292,7 +302,12 @@ procedure inclocked(var l : longint);assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
{$ifdef FPC_PIC}
movq IsMultithreaded@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
{$endif FPC_PIC}
jz .Linclockednolock
lock
incl (%rdi)
@ -312,7 +327,12 @@ procedure inclocked(var l : int64);assembler;
}
{ this check should be done because a lock takes a lot }
{ of time! }
{$ifdef FPC_PIC}
movq IsMultithreaded@GOTPCREL(%rip),%rax
cmpb $0,(%rax)
{$else FPC_PIC}
cmpb $0,IsMultithread
{$endif FPC_PIC}
jz .Linclockednolock
lock
incq (%rdi)
@ -361,7 +381,10 @@ end;
{
$Log$
Revision 1.17 2005-02-05 16:19:44 florian
Revision 1.18 2005-02-05 22:30:50 florian
* some PIC ifdefs
Revision 1.17 2005/02/05 16:19:44 florian
+ completed SSE exception masks
Revision 1.16 2004/12/25 11:50:46 florian