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

* fixed parameters of get_caller_*()

Browse Source
This commit is contained in:
peter 2004-06-05 07:55:22 +00:00
parent 225bc56f4f
commit 9b7bbdcf4e
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/x86_64/x86_64.inc
View File

@ -47,12 +47,10 @@ end ['RAX'];
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
{$ifndef REGCALL}
movq framebp,%rax
{$endif}
orq %rax,%rax
{ %rdi = framebp }
orq %rdi,%rdi
jz .Lg_a_null
movq 8(%rax),%rax
movq 8(%rdi),%rax
.Lg_a_null:
end ['RAX'];
@ -60,13 +58,11 @@ end ['RAX'];
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
{$ifndef REGCALL}
movq framebp,%rax
{$endif}
orq %rax,%rax
jz .Lgnf_null
movq (%rax),%rax
.Lgnf_null:
{ %rdi = framebp }
orq %rdi,%rdi
jz .Lg_a_null
movq (%rdi),%rax
.Lg_a_null:
end ['RAX'];
(*
@ -352,7 +348,10 @@ end;
{
$Log$
Revision 1.12 2004-05-01 15:59:17 florian
Revision 1.13 2004-06-05 07:55:22 peter
* fixed parameters of get_caller_*()
Revision 1.12 2004/05/01 15:59:17 florian
* x86_64 exception handling fixed
Revision 1.11 2004/04/29 19:50:13 peter