Add struct field names to subscriptn nodes in parse tree output

compiler/nmem.pas

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