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

* indenting of node names

Browse Source 
git-svn-id: trunk@8418 -
This commit is contained in:
peter 2007-09-09 14:03:31 +00:00
parent 523b7b84cd
commit db98f1eecb
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pass_2.pas
View File

@ -58,6 +58,9 @@ implementation
*****************************************************************************}
{$ifdef EXTDEBUG}
var
secondprefix : string;
procedure logsecond(ht:tnodetype; entry: boolean);
const
secondnames: array[tnodetype] of string[13] =
@ -140,9 +143,15 @@ implementation
p: pchar;
begin
if entry then
p := strpnew('second '+secondnames[ht]+' (entry)')
begin
secondprefix:=secondprefix+' ';
p := strpnew(secondprefix+'second '+secondnames[ht]+' (entry)')
end
else
p := strpnew('second '+secondnames[ht]+' (exit)');
begin
p := strpnew(secondprefix+'second '+secondnames[ht]+' (exit)');
delete(secondprefix,length(secondprefix),1);
end;
current_asmdata.CurrAsmList.concat(tai_comment.create(p));
end;
{$endif EXTDEBUG}