paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 04:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* better DFA debugging information

Browse Source 
git-svn-id: trunk@25975 -
This commit is contained in:
florian 2013-11-06 21:10:58 +00:00
parent 89f34965e9
commit 2fc4a7fdd7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/optdfa.pas
View File

@ -189,7 +189,11 @@ unit optdfa;
} }
{$ifdef DEBUG_DFA} {$ifdef DEBUG_DFA}
if not(changed) and b then if not(changed) and b then
writeln('Another DFA pass caused by: ',nodetype2str[n.nodetype],'(',n.fileinfo.line,',',n.fileinfo.column,')'); begin
writeln('Another DFA pass caused by: ',nodetype2str[n.nodetype],'(',n.fileinfo.line,',',n.fileinfo.column,')');
write(' Life info set was: ');PrintDFASet(Output,n.optinfo^.life);writeln;
write(' Life info set will be: ');PrintDFASet(Output,l);writeln;
end;
{$endif DEBUG_DFA} {$endif DEBUG_DFA}
changed:=changed or b; changed:=changed or b;