Browse Source

powerpc: enable SUPPORT_GET_FRAME

git-svn-id: trunk@36698 -
Károly Balogh 8 years ago
parent
commit
0b561b6c8f
2 changed files with 3 additions and 0 deletions
  1. 1 0
      compiler/fpcdefs.inc
  2. 2 0
      rtl/powerpc/powerpc.inc

+ 1 - 0
compiler/fpcdefs.inc

@@ -137,6 +137,7 @@
   {$define cpumm}
   {$define cpurox}
   {$define cpurefshaveindexreg}
+  {$define SUPPORT_GET_FRAME}
 {$endif powerpc}
 
 {$ifdef powerpc64}

+ 2 - 0
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