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

+ implemented get_caller_addr and get_caller_frame for the Z80

Browse Source 
git-svn-id: trunk@45146 -
This commit is contained in:
nickysn 2020-04-27 21:47:46 +00:00
parent 6810677493
commit f202249711
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/z80/z80.inc
View File

@ -108,13 +108,44 @@ function get_frame:pointer;assembler;nostackframe;
{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR} {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;assembler; function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;assembler;
label
framebp_null;
asm asm
ld l, (framebp)
ld h, (framebp+1)
ld a, l
or a, h
jp Z, framebp_null
inc hl
inc hl
ld e, (hl)
inc hl
ld d, (hl)
ex de, hl
framebp_null:
end; end;
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME} {$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler; function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler;
label
framebp_null;
asm asm
ld l, (framebp)
ld h, (framebp+1)
ld a, l
or a, h
jp Z, framebp_null
ld e, (hl)
inc hl
ld d, (hl)
ex de, hl
framebp_null:
end; end;