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

+ implemented get_frame

Browse Source 
git-svn-id: branches/z80@44966 -
This commit is contained in:
nickysn 2020-04-21 17:16:17 +00:00
parent 2aa248bba2
commit 4e4cb4fd9d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/z80/z80.inc
View File

@ -89,6 +89,8 @@ end;
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;nostackframe; function get_frame:pointer;assembler;nostackframe;
asm asm
push ix
pop hl
end; end;
{$ENDIF not INTERNAL_BACKTRACE} {$ENDIF not INTERNAL_BACKTRACE}