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

* declare Sptr() and get_frame() as "nostackframe"

Browse Source 
git-svn-id: trunk@22235 -
This commit is contained in:
Jonas Maebe 2012-08-24 18:49:33 +00:00
parent f7dbe6d7a6
commit da32d99b7e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/x86_64/x86_64.inc
View File

@ -22,14 +22,14 @@
****************************************************************************}
{$define FPC_SYSTEM_HAS_SPTR}
Function Sptr : Pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
Function Sptr : Pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
movq %rsp,%rax
end;
{$IFNDEF INTERNAL_BACKTRACE}
{$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
function get_frame:pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
movq %rbp,%rax
end;