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

* fixed calling conventions for winx64

Browse Source 
git-svn-id: trunk@3230 -
This commit is contained in:
florian 2006-04-16 14:32:35 +00:00
parent 474ba9723c
commit 398cb8e0fe
1 changed files with 78 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
rtl/x86_64/x86_64.inc
View File

@ -46,10 +46,16 @@ end ['RAX'];
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
{$ifdef win64}
orq %rcx,%rcx
jz .Lg_a_null
movq 8(%rcx),%rax
{$else win64}
{ %rdi = framebp }
orq %rdi,%rdi
jz .Lg_a_null
movq 8(%rdi),%rax
{$endif win64}
.Lg_a_null:
end ['RAX'];
@ -57,10 +63,16 @@ end ['RAX'];
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
{$ifdef win64}
orq %rcx,%rcx
jz .Lg_a_null
movq (%rcx),%rax
{$else win64}
{ %rdi = framebp }
orq %rdi,%rdi
jz .Lg_a_null
movq (%rdi),%rax
{$endif win64}
.Lg_a_null:
end ['RAX'];
@ -245,6 +257,22 @@ Procedure FillChar(var x;count:longint;value:byte);assembler;
{ does a thread save inc/dec }
function declocked(var l : longint) : boolean;assembler;
asm
{$ifdef win64}
{
l: %rcx
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
jz .Ldeclockednolock
lock
decl (%rcx)
jmp .Ldeclockedend
.Ldeclockednolock:
decl (%rcx)
.Ldeclockedend:
setzb %al
{$else win64}
{
l: %rdi
}
@ -264,12 +292,29 @@ function declocked(var l : longint) : boolean;assembler;
decl (%rdi)
.Ldeclockedend:
setzb %al
{$endif win64}
end;
{$define FPC_SYSTEM_HAS_DECLOCKED_INT64}
function declocked(var l : int64) : boolean;assembler;
asm
{$ifdef win64}
{
l: %rcx
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
jz .Ldeclockednolock
lock
decq (%rcx)
jmp .Ldeclockedend
.Ldeclockednolock:
decq (%rcx)
.Ldeclockedend:
setzb %al
{$else win64}
{
l: %rdi
}
@ -289,6 +334,7 @@ function declocked(var l : int64) : boolean;assembler;
decq (%rdi)
.Ldeclockedend:
setzb %al
{$endif win64}
end;
@ -296,6 +342,21 @@ function declocked(var l : int64) : boolean;assembler;
procedure inclocked(var l : longint);assembler;
asm
{$ifdef win64}
{
l: %rcx
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
jz .Linclockednolock
lock
incl (%rcx)
jmp .Linclockedend
.Linclockednolock:
incl (%rcx)
.Linclockedend:
{$else win64}
{
l: %rdi
}
@ -314,6 +375,7 @@ procedure inclocked(var l : longint);assembler;
.Linclockednolock:
incl (%rdi)
.Linclockedend:
{$endif win64}
end;
@ -321,6 +383,21 @@ procedure inclocked(var l : longint);assembler;
procedure inclocked(var l : int64);assembler;
asm
{$ifdef win64}
{
l: %rcx
}
{ this check should be done because a lock takes a lot }
{ of time! }
cmpb $0,IsMultithread
jz .Linclockednolock
lock
incq (%rcx)
jmp .Linclockedend
.Linclockednolock:
incq (%rcx)
.Linclockedend:
{$else win64}
{
l: %rdi
}
@ -339,6 +416,7 @@ procedure inclocked(var l : int64);assembler;
.Linclockednolock:
incq (%rdi)
.Linclockedend:
{$endif win64}
end;