summaryrefslogtreecommitdiff
path: root/rtl/z80
diff options
context:
space:
mode:
authornickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-04-21 17:25:48 +0000
committernickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2020-04-21 17:25:48 +0000
commit385eb963b97975e06b1d2f118b268041194801aa (patch)
tree1b8dfda2dea4517976a3baedcb3e66a43baf89d5 /rtl/z80
parent2e334a33865c92fb432de05ee8a6c82d2d513f2e (diff)
downloadfpc-385eb963b97975e06b1d2f118b268041194801aa.tar.gz
+ implemented Sptr
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@44967 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/z80')
-rw-r--r--rtl/z80/z80.inc4
1 files changed, 3 insertions, 1 deletions
diff --git a/rtl/z80/z80.inc b/rtl/z80/z80.inc
index bdd2966b0d..299d416880 100644
--- a/rtl/z80/z80.inc
+++ b/rtl/z80/z80.inc
@@ -108,8 +108,10 @@ function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler;
{$define FPC_SYSTEM_HAS_SPTR}
-Function Sptr : pointer;assembler;
+Function Sptr : pointer;assembler;nostackframe;
asm
+ ld hl, 0
+ add hl, sp
end;