From b6af220f1a99d352a574b0dda714ae57e1cde29a Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 15 Nov 2024 22:39:03 +0100
Subject: [PATCH]   + print add node flags

---
 compiler/nadd.pas | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index aec132bce1..5f9c28f397 100644
--- a/compiler/nadd.pas
+++ b/compiler/nadd.pas
@@ -58,6 +58,7 @@ interface
           function simplify(forinline: boolean) : tnode;override;
           function dogetcopy : tnode;override;
           function docompare(p: tnode): boolean; override;
+          procedure printnodedata(var t:text);override;
     {$ifdef state_tracking}
           function track_state_pass(exec_known:boolean):boolean;override;
     {$endif}
@@ -2009,6 +2010,27 @@ const
       end;
 
 
+    procedure taddnode.printnodedata(var t: text);
+      var
+        i: TAddNodeFlag;
+        first: Boolean;
+      begin
+        write(t,printnodeindention,'addnodeflags = [');
+        first:=true;
+        for i:=low(TAddNodeFlag) to high(TAddNodeFlag) do
+          if i in addnodeflags then
+            begin
+              if not(first) then
+                write(t,',')
+              else
+                first:=false;
+              write(t, i);
+            end;
+        writeln(t,']');
+        inherited printnodedata(t);
+      end;
+
+
     function taddnode.pass_typecheck:tnode;
       begin
         { This function is small to keep the stack small for recursive of