瀏覽代碼

powerpc: enable SUPPORT_GET_FRAME

git-svn-id: trunk@36698 -
Károly Balogh 8 年之前
父節點
當前提交
0b561b6c8f
共有 2 個文件被更改,包括 3 次插入0 次删除
  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 cpumm}
   {$define cpurox}
   {$define cpurox}
   {$define cpurefshaveindexreg}
   {$define cpurefshaveindexreg}
+  {$define SUPPORT_GET_FRAME}
 {$endif powerpc}
 {$endif powerpc}
 
 
 {$ifdef powerpc64}
 {$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}
 {$endif FPC_SYSTEM_HAS_FPC_PCHAR_LENGTH}
 
 
 
 
+{$ifndef INTERNAL_BACKTRACE}
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe;
 function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif} nostackframe;
 asm
 asm
   { all abi's I know use r1 as stack pointer }
   { all abi's I know use r1 as stack pointer }
   mr r3, r1
   mr r3, r1
 end;
 end;
+{$endif INTERNAL_BACKTRACE}
 
 
 {NOTE: On MACOS, 68000 code might call powerpc code, through the MixedMode manager,
 {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
 (even in the OS in system 9). The pointer to the switching stack frame is then