paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add some more debug information to temp-generation when compiled with -dEXTDEBUG

Browse Source 
git-svn-id: trunk@39141 -
This commit is contained in:
pierre 2018-05-28 22:39:21 +00:00
parent 0673f181bb
commit b1537a7f40
1 changed files with 15 additions and 2 deletions

17
compiler/tgobj.pas
View File

@ -216,6 +216,9 @@ implementation
firsttemp:=0;
lasttemp:=0;
alignmismatch:=0;
{$ifdef EXTDEBUG}
Comment(V_Note,'tgobj: (ResetTempGen) all temps freed');
{$endif}
end;
@ -231,6 +234,9 @@ implementation
internalerror(200204221);
firsttemp:=l;
lasttemp:=l;
{$ifdef EXTDEBUG}
Comment(V_Note,'tgobj: (SetFirstTempGen) set to '+tostr(l));
{$endif}
end;
@ -280,7 +286,7 @@ implementation
begin
{$ifdef EXTDEBUG}
if not(hp^.temptype in FreeTempTypes) then
Comment(V_Warning,'tgobj: (AllocTemp) temp at pos '+tostr(hp^.pos)+ ' in freelist is not set to tt_free !');
Comment(V_Warning,'tgobj: (AllocTemp) temp at pos '+tostr(hp^.pos)+ ' in freelist is not set to a free temp type !');
{$endif}
{ Check only slots that are
- free
@ -430,6 +436,9 @@ implementation
CGMessage(cg_e_localsize_too_big);
lasttemp:=tl^.pos+size;
end;
{$ifdef EXTDEBUG}
Comment(V_Note,'tgobj: (AllocTemp) lasttemp set to '+tostr(lasttemp));
{$endif}
{$pop}
tl^.fini:=fini;
tl^.alignment:=alignment;
@ -444,6 +453,7 @@ implementation
list.concat(tai_tempalloc.allocinfo(tl^.pos,tl^.size,'allocated with type '+TempTypeStr[tl^.temptype]+' for def '+tl^.def.typename))
else
list.concat(tai_tempalloc.allocinfo(tl^.pos,tl^.size,'allocated with type '+TempTypeStr[tl^.temptype]));
Comment(V_Note,'tgobj: (AllocTemp) temp of size '+tostr(size)+' type '+TempTypeStr[tl^.temptype]+' requested, allocated at offset '+tostr(tl^.pos));
{$else}
list.concat(tai_tempalloc.alloc(tl^.pos,tl^.size));
{$endif}
@ -458,6 +468,9 @@ implementation
hp:=templist;
hprev:=nil;
hprevfree:=nil;
{$ifdef EXTDEBUG}
Comment(V_Note,'tgobj: (FreeTemp) freeing of temp at pos '+tostr(pos.val)+' requested');
{$endif}
while assigned(hp) do
begin
if (hp^.pos=pos.val) then
@ -475,7 +488,7 @@ implementation
if not(hp^.temptype in temptypes) then
begin
{$ifdef EXTDEBUG}
Comment(V_Debug,'tgobj: (Freetemp) temp at pos '+tostr(pos.val)+ ' has different type ('+TempTypeStr[hp^.temptype]+'), not releasing');
Comment(V_Warning,'tgobj: (Freetemp) temp at pos '+tostr(pos.val)+ ' has different type ('+TempTypeStr[hp^.temptype]+'), not releasing');
list.concat(tai_tempalloc.allocinfo(hp^.pos,hp^.size,'temp has wrong type ('+TempTypeStr[hp^.temptype]+') not releasing'));
{$endif}
exit;