Преглед изворни кода

+ write more information ttypeconvnodes

florian пре 5 месеци
родитељ
комит
39ac8a7923
1 измењених фајлова са 2 додато и 0 уклоњено
  1. 2 0
      compiler/ncnv.pas

+ 2 - 0
compiler/ncnv.pas

@@ -1048,7 +1048,9 @@ implementation
         i: ttypeconvnodeflag;
       begin
         inherited printnodeinfo(t);
+        write(t,', totypedef = ',totypedef.GetTypeName);
         write(t,', convtype = ',convtype);
+        write(t,', assignment_side = ',assignment_side);
         write(t,', convnodeflags = [');
         first:=true;
         for i:=low(ttypeconvnodeflag) to high(ttypeconvnodeflag) do