Kaynağa Gözat

m68k: enable inlined get_frame for m68k

git-svn-id: trunk@36577 -
Károly Balogh 8 yıl önce
ebeveyn
işleme
30176f3116
2 değiştirilmiş dosya ile 3 ekleme ve 0 silme
  1. 1 0
      compiler/fpcdefs.inc
  2. 2 0
      rtl/m68k/m68k.inc

+ 1 - 0
compiler/fpcdefs.inc

@@ -194,6 +194,7 @@
   {$define cpuneedsdivhelper}
   {$define cpu_uses_separate_address_registers}
   {$define SUPPORT_SAFECALL}
+  {$define SUPPORT_GET_FRAME}
 {$endif m68k}
 
 {$ifdef avr}

+ 2 - 0
rtl/m68k/m68k.inc

@@ -54,11 +54,13 @@ procedure fpc_cpuinit;
       SysInitFPU;
   end;
 
+{$ifndef INTERNAL_BACKTRACE}
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 function get_frame : pointer; assembler;nostackframe;
   asm
     move.l fp,d0
   end;
+{$endif not INTERNAL_BACKTRACE}
 
 
 {$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}