vhdl 2008: visibility, more implicit subprograms, alias...

Use Type_Definition in type_declarator.

1 files changed, 11 insertions, 4 deletions

diff --git a/disp_tree.adb b/disp_tree.adb
index a14030bf7..c02951977 100644
--- a/disp_tree.adb
+++ b/disp_tree.adb
@@ -1009,21 +1009,28 @@ package body Disp_Tree is
             Disp_Tree (Get_File_Open_Kind (Tree), Ntab);
             Header ("attribute_value_chain:");
             Disp_Tree_Flat_Chain (Get_Attribute_Value_Chain (Tree), Ntab);
-         when Iir_Kind_Type_Declaration
-           | Iir_Kind_Subtype_Declaration =>
+         when Iir_Kind_Type_Declaration =>
             if Flat_Decl then
                return;
             end if;
             Header ("type (definition):");
-            Disp_Tree (Get_Type (Tree), Ntab);
+            Disp_Tree (Get_Type_Definition (Tree), Ntab);
             Header ("attribute_value_chain:");
             Disp_Tree_Flat_Chain (Get_Attribute_Value_Chain (Tree), Ntab);
          when Iir_Kind_Anonymous_Type_Declaration =>
             if Flat_Decl then
                return;
             end if;
-            Header ("type (definition):");
+            Header ("type definition:");
+            Disp_Tree (Get_Type_Definition (Tree), Ntab);
+         when Iir_Kind_Subtype_Declaration =>
+            if Flat_Decl then
+               return;
+            end if;
+            Header ("subtype indication:");
             Disp_Tree (Get_Type (Tree), Ntab);
+            Header ("attribute_value_chain:");
+            Disp_Tree_Flat_Chain (Get_Attribute_Value_Chain (Tree), Ntab);
          when Iir_Kind_Nature_Declaration
            | Iir_Kind_Subnature_Declaration =>
             if Flat_Decl then