paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 03:28:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ write more information ttypeconvnodes

Browse Source
This commit is contained in:
florian 2025-03-05 22:32:39 +01:00
parent d34d5c5459
commit 39ac8a7923
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncnv.pas
View File

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