synth: do not crash on use of std_logic_1164 2008.

1 files changed, 4 insertions, 10 deletions

diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index 1d9792948..077c66e99 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -359,16 +359,10 @@ 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 Get_Array_Element_Constraint (Def) /= Null_Node then
+               Annotate_Type_Definition
+                 (Block_Info, Get_Element_Subtype (Def));
+            end if;
             if Flag_Synthesis then
                --  For the bounds.
                Create_Object_Info (Block_Info, Def);