Преглед на файлове

+ 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