paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
verbose stuff
This commit is contained in:
florian 2021-12-15 23:05:18 +01:00
parent be448e29f6
commit f7239e03e7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/tgobj.pas
View File

@ -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