vhdl-annotations: partial revert of previous patch for

1 files changed, 10 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index 074ea4f15..1d9792948 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -359,6 +359,16 @@ package body Vhdl.Annotations is
             Annotate_Anonymous_Type_Definition (Block_Info, El);
 
          when Iir_Kind_Array_Subtype_Definition =>
+            declare
+               El_Type : constant Iir := Get_Element_Subtype (Def);
+               Bel_Type : constant Iir :=
+                 Get_Element_Subtype (Get_Base_Type (Def));
+            begin
+               if El_Type /= Bel_Type then
+                  Annotate_Anonymous_Type_Definition
+                    (Block_Info, Get_Element_Subtype (Def));
+               end if;
+            end;
             if Flag_Synthesis then
                --  For the bounds.
                Create_Object_Info (Block_Info, Def);