소스 검색

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

git-svn-id: trunk@47720 -
pierre 4 년 전
부모
커밋
348be7657d
1개의 변경된 파일5개의 추가작업 그리고 2개의 파일을 삭제
  1. 5 2
      compiler/node.pas

+ 5 - 2
compiler/node.pas

@@ -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);