Procházet zdrojové kódy

+ write more information ttypeconvnodes

florian před 5 měsíci
rodič
revize
39ac8a7923
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  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