From bb2e2f83e9087ecbd5f5f652c877e694e00660ae Mon Sep 17 00:00:00 2001
From: Charles Averill <charlesaverill20@gmail.com>
Date: Thu, 4 Jan 2024 10:16:06 -0600
Subject: [PATCH] Add struct field names to subscriptn nodes in parse tree
 output

---
 compiler/nmem.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/compiler/nmem.pas b/compiler/nmem.pas
index a7bff21a62..48b89d3ba0 100644
--- a/compiler/nmem.pas
+++ b/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