Преглед изворни кода

* Add {$IFNDEF INTERNAL_BACKTRACE}

git-svn-id: trunk@3525 -
daniel пре 19 година
родитељ
комит
ebec34c224
1 измењених фајлова са 2 додато и 2 уклоњено
  1. 2 2
      rtl/x86_64/x86_64.inc

+ 2 - 2
rtl/x86_64/x86_64.inc

@@ -35,7 +35,7 @@ asm
         movq    %rsp,%rax
         movq    %rsp,%rax
 end ['RAX'];
 end ['RAX'];
 
 
-
+{$IFNDEF INTERNAL_BACKTRACE}
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 {$define FPC_SYSTEM_HAS_GET_FRAME}
 function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
 function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
 asm
 asm
@@ -75,7 +75,7 @@ asm
 {$endif win64}
 {$endif win64}
 .Lg_a_null:
 .Lg_a_null:
 end ['RAX'];
 end ['RAX'];
-
+{$ENDIF}
 (*
 (*
 {$define FPC_SYSTEM_HAS_MOVE}
 {$define FPC_SYSTEM_HAS_MOVE}
 procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;
 procedure Move(const source;var dest;count:longint);[public, alias: 'FPC_MOVE'];assembler;