From cd9ed54d35fc4573b4adafde00979b15473749e5 Mon Sep 17 00:00:00 2001
From: Charles Averill <charlesaverill20@gmail.com>
Date: Tue, 2 Jan 2024 21:16:45 -0600
Subject: [PATCH] Add string constant values to stringconstn nodes in parse
 tree output

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

diff --git a/compiler/ncon.pas b/compiler/ncon.pas
index 6536815157..3efa721829 100644
--- a/compiler/ncon.pas
+++ b/compiler/ncon.pas
@@ -144,6 +144,7 @@ interface
           { returns whether this platform uses the nil pointer to represent
             empty dynamic strings }
           class function emptydynstrnil: boolean; virtual;
+          procedure printnodedata(var T: Text); override;
 {$ifdef DEBUG_NODE_XML}
           procedure XMLPrintNodeData(var T: Text); override;
 {$endif DEBUG_NODE_XML}
@@ -1213,6 +1214,12 @@ implementation
         result:=true;
       end;
 
+      procedure tstringconstnode.printnodedata(var T: Text);
+      begin
+        inherited printnodedata(t);
+        writeln(t,printnodeindention,'value = "',value_str,'"');
+      end;
+
 {$ifdef DEBUG_NODE_XML}
     procedure TStringConstNode.XMLPrintNodeData(var T: Text);
       var