paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 22:49:46 +01: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} {$ifdef EXTDEBUG}
var
secondprefix : string;
procedure logsecond(ht:tnodetype; entry: boolean); procedure logsecond(ht:tnodetype; entry: boolean);
const const
secondnames: array[tnodetype] of string[13] = secondnames: array[tnodetype] of string[13] =
@ -140,9 +143,15 @@ implementation
p: pchar; p: pchar;
begin begin
if entry then if entry then
p := strpnew('second '+secondnames[ht]+' (entry)') begin
secondprefix:=secondprefix+' ';
p := strpnew(secondprefix+'second '+secondnames[ht]+' (entry)')
end
else 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)); current_asmdata.CurrAsmList.concat(tai_comment.create(p));
end; end;
{$endif EXTDEBUG} {$endif EXTDEBUG}