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

Add struct field names to subscriptn nodes in parse tree output

Browse Source
This commit is contained in:
Charles Averill 2024-01-04 10:16:06 -06:00 committed by FPK
parent cd9ed54d35
commit bb2e2f83e9
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nmem.pas
View File

@ -124,6 +124,7 @@ interface
function docompare(p: tnode): boolean; override;
function pass_typecheck:tnode;override;
procedure mark_write;override;
procedure printnodedata(var T: Text); override;
{$ifdef DEBUG_NODE_XML}
procedure XMLPrintNodeData(var T: Text); override;
{$endif DEBUG_NODE_XML}
@ -992,6 +993,12 @@ implementation
(vs = tsubscriptnode(p).vs);
end;
procedure tsubscriptnode.printnodedata(var T: Text);
begin
inherited printnodedata(T);
writeln(t,printnodeindention,'field = ',vs.name);
end;
{$ifdef DEBUG_NODE_XML}
procedure TSubscriptNode.XMLPrintNodeData(var T: Text);
begin