From 0b561b6c8f48852ff0bcccdd78a629512b1d8975 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sat, 8 Jul 2017 23:51:55 +0000
Subject: [PATCH] powerpc: enable SUPPORT_GET_FRAME

git-svn-id: trunk@36698 -
---
 compiler/fpcdefs.inc    | 1 +
 rtl/powerpc/powerpc.inc | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/compiler/fpcdefs.inc b/compiler/fpcdefs.inc
index 86f5c14cfc..234fdc6cc9 100644
--- a/compiler/fpcdefs.inc
+++ b/compiler/fpcdefs.inc
@@ -137,6 +137,7 @@
   {$define cpumm}
   {$define cpurox}
   {$define cpurefshaveindexreg}
+  {$define SUPPORT_GET_FRAME}
 {$endif powerpc}
 
 {$ifdef powerpc64}
diff --git a/rtl/powerpc/powerpc.inc b/rtl/powerpc/powerpc.inc
index 7d647443ba..27bec0244f 100644
--- a/rtl/powerpc/powerpc.inc
+++ b/rtl/powerpc/powerpc.inc
@@ -1047,12 +1047,14 @@ function fpc_pchar_length(p:pchar):sizeint;assembler;[public,alias:'FPC_PCHAR_LE
 {$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
 
 
+{$ifndef INTERNAL_BACKTRACE}
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe;
 asm
   { all abi's I know use r1 as stack pointer }
   mr r3, r1
 end;
+{$endif INTERNAL_BACKTRACE}
 
 {NOTE: On MACOS, 68000 code might call powerpc code, through the MixedMode manager,
 (even in the OS in system 9). The pointer to the switching stack frame is then