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

Fix bug introduced in commit #47709, by only calling node_complexity if first pass was already done (bug report 38183)

Browse Source 
git-svn-id: trunk@47720 -
This commit is contained in:
pierre 2020-12-08 11:28:50 +00:00
parent 9ac84262f6
commit 348be7657d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/node.pas
View File

@ -896,7 +896,9 @@ implementation
first:=false;
write(t, i);
end;
write(t,'], cmplx = ',node_complexity(self));
write(t,']');
if (nf_pass1_done in flags) then
write(t,', cmplx = ',node_complexity(self));
end;
@ -942,7 +944,8 @@ implementation
Write(T, ',', i)
end;
write(t,'" complexity="',node_complexity(self),'"');
if (nf_pass1_done in flags) then
write(t,'" complexity="',node_complexity(self),'"');
end;
procedure tnode.XMLPrintNodeData(var T: Text);