From 2dbe48a76c88c3f063dde05d9ade832a31e9c0e9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 26 Aug 2012 19:07:36 +0000
Subject: [PATCH]   * extra "addr" parameters for get_caller_addr/frame (patch
 by     Jeppe Johansen, mantis #22727)

git-svn-id: trunk@22252 -
---
 rtl/arm/thumb2.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/arm/thumb2.inc b/rtl/arm/thumb2.inc
index f1ad8dbefd..2193bfcf68 100644
--- a/rtl/arm/thumb2.inc
+++ b/rtl/arm/thumb2.inc
@@ -84,7 +84,7 @@ end;
 }
 
 {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
-function get_caller_addr(framebp:pointer):pointer;assembler;
+function get_caller_addr(framebp:pointer;addr:pointer=nil):pointer;assembler;
 asm
   movs r0,r0
   beq .Lg_a_null
@@ -94,7 +94,7 @@ end;
 
 
 {$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
-function get_caller_frame(framebp:pointer):pointer;assembler;
+function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler;
 asm
   movs r0,r0
   beq .Lgnf_null