From 4e4cb4fd9df735a676420c1db2781e52b1e41a82 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 21 Apr 2020 17:16:17 +0000
Subject: [PATCH] + implemented get_frame

git-svn-id: branches/z80@44966 -
---
 rtl/z80/z80.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/z80/z80.inc b/rtl/z80/z80.inc
index f1497417cc..bdd2966b0d 100644
--- a/rtl/z80/z80.inc
+++ b/rtl/z80/z80.inc
@@ -89,6 +89,8 @@ end;
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 function get_frame:pointer;assembler;nostackframe;
   asm
+    push ix
+    pop hl
   end;
 {$ENDIF not INTERNAL_BACKTRACE}