diff --git a/compiler/tgobj.pas b/compiler/tgobj.pas index 2e3e82c434..4045e3dbc6 100644 --- a/compiler/tgobj.pas +++ b/compiler/tgobj.pas @@ -357,7 +357,7 @@ unit tgobj; if not(hp^.temptype in temptypes) then begin {$ifdef EXTDEBUG} - Comment(V_Debug,'temp managment : (Freetemp) temp at pos '+tostr(pos)+ ' has wrong type !'); + Comment(V_Warning,'temp managment : (Freetemp) temp at pos '+tostr(pos)+ ' has wrong type !'); {$endif} exit; end; @@ -442,7 +442,7 @@ unit tgobj; hp := hp^.next; end; {$ifdef EXTDEBUG} - Comment(V_Warning,'temp managment : SizeOfTemp temp at pos '+tostr(ref.offset)+ ' not found !'); + Comment(V_Debug,'temp managment : SizeOfTemp temp at pos '+tostr(ref.offset)+ ' not found !'); {$endif} end; @@ -503,7 +503,10 @@ finalization end. { $Log$ - Revision 1.13 2002-08-24 18:35:04 peter + Revision 1.14 2002-09-01 12:14:53 peter + * fixed some wrong levels in extdebug comments + + Revision 1.13 2002/08/24 18:35:04 peter * when reusing a block also update the temptype instead of forcing it to tt_normal