paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some wrong levels in extdebug comments

Browse Source
This commit is contained in:
peter 2002-09-01 12:14:53 +00:00
parent 8ee2462ba4
commit 8b2fb4187e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/tgobj.pas
View File

@ -357,7 +357,7 @@ unit tgobj;
if not(hp^.temptype in temptypes) then if not(hp^.temptype in temptypes) then
begin begin
{$ifdef EXTDEBUG} {$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} {$endif}
exit; exit;
end; end;
@ -442,7 +442,7 @@ unit tgobj;
hp := hp^.next; hp := hp^.next;
end; end;
{$ifdef EXTDEBUG} {$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} {$endif}
end; end;
@ -503,7 +503,10 @@ finalization
end. end.
{ {
$Log$ $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 * when reusing a block also update the temptype instead of forcing it
to tt_normal to tt_normal