浏览代码

+ write more information ttypeconvnodes

florian 6 月之前
父节点
当前提交
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