Kaynağa Gözat

* make tgobj.pas less verbose in extdebug mode, use separate define DEBUG_FREETEMP for the really
verbose stuff

florian 3 yıl önce
ebeveyn
işleme
f7239e03e7
1 değiştirilmiş dosya ile 3 ekleme ve 1 silme
  1. 3 1
      compiler/tgobj.pas

+ 3 - 1
compiler/tgobj.pas

@@ -29,6 +29,8 @@ unit tgobj;
 
 {$i fpcdefs.inc}
 
+{ $define DEBUG_FREETEMP}
+
   interface
 
     uses
@@ -494,7 +496,7 @@ implementation
                { check type that are allowed to be released }
                if not(hp^.temptype in temptypes) then
                 begin
-{$ifdef EXTDEBUG}
+{$ifdef DEBUG_FREETEMP}
                   if hp^.temptype = tt_persistent then
                     Comment(V_Note,'tgobj: (Freetemp) temp at pos '+tostr(pos.val)+ ' has different type ('+TempTypeStr[hp^.temptype]+'), not releasing')
                   else