瀏覽代碼

+ separate JUMP_DEBUG define

git-svn-id: trunk@43463 -
florian 5 年之前
父節點
當前提交
0ab0eefae0
共有 1 個文件被更改,包括 6 次插入4 次删除
  1. 6 4
      compiler/aoptobj.pas

+ 6 - 4
compiler/aoptobj.pas

@@ -24,7 +24,9 @@
 }
 Unit AoptObj;
 
-  {$i fpcdefs.inc}
+{ $define DEBUG_JUMP}
+
+{$i fpcdefs.inc}
 
   { general, processor independent objects for use by the assembler optimizer }
 
@@ -1552,11 +1554,11 @@ Unit AoptObj;
     { Output debug message to console - null function if EXTDEBUG is not defined }
     class procedure TAOptObj.DebugWrite(Message: string); inline;
       begin
-{$ifdef EXTDEBUG}
+{$ifdef DEBUG_JUMP}
         WriteLn(Message);
-{$else EXTDEBUG}
+{$else DEBUG_JUMP}
         { Do nothing }
-{$endif EXTDEBUG}
+{$endif DEBUG_JUMP}
       end;
 
     { Removes all instructions between an unconditional jump and the next label }