Add parenthesis_Expression, --reprint and --compare-tokens commands.

1 files changed, 10 insertions, 5 deletions

diff --git a/disp_tree.adb b/disp_tree.adb
index a68d2d0ee..8ac5108a6 100644
--- a/disp_tree.adb
+++ b/disp_tree.adb
@@ -443,7 +443,7 @@ package body Disp_Tree is
 
          when Iir_Kind_Attribute_Name =>
             Put ("attribute_name");
-            Disp_Ident (Get_Attribute_Identifier (Tree));
+            Disp_Ident (Get_Identifier (Tree));
 
          when Iir_Kind_Implicit_Function_Declaration =>
             Put ("implicit_function_declaration: ");
@@ -656,8 +656,6 @@ package body Disp_Tree is
                Header ("context items:");
                Disp_Tree_Chain (Get_Context_Items (Tree), Ntab);
             end if;
-            Header ("attribute_value_chain:");
-            Disp_Tree_Flat_Chain (Get_Attribute_Value_Chain (Tree), Ntab);
             Header ("library unit:");
             Disp_Tree (Get_Library_Unit (Tree), Ntab);
          when Iir_Kind_Use_Clause =>
@@ -1712,6 +1710,13 @@ package body Disp_Tree is
             Disp_Tree (Get_Method_Object (Tree), Ntab);
             Header ("parameters:");
             Disp_Tree_Chain (Get_Parameter_Association_Chain (Tree), Ntab);
+         when Iir_Kind_Parenthesis_Expression =>
+            Header ("staticness:", false);
+            Disp_Expr_Staticness (Tree);
+            Header ("type:");
+            Disp_Tree_Flat (Get_Type (Tree), Ntab);
+            Header ("expression:");
+            Disp_Tree (Get_Expression (Tree), Ntab, True);
          when Iir_Kind_Qualified_Expression =>
             Header ("staticness:", false);
             Disp_Expr_Staticness (Tree);
@@ -1813,8 +1818,8 @@ package body Disp_Tree is
          when Iir_Kind_Selected_Name =>
             Header ("prefix:");
             Disp_Tree (Get_Prefix (Tree), Ntab, True);
-            Header ("suffix_identifier: ", False);
-            Disp_Ident (Get_Suffix_Identifier (Tree));
+            Header ("identifier: ", False);
+            Disp_Ident (Get_Identifier (Tree));
 
          when Iir_Kind_Attribute_Name =>
             Header ("prefix:");