diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-04 18:22:40 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-04 18:22:40 +0200 |
commit | 3ba26e2631c3a8d5b668c25f4b9f043f0b0eaa0c (patch) | |
tree | 3edc1c819c7cbd342468e95ef16e78b132dfb630 /src/vhdl | |
parent | d6cda1098e82a15bb905235c46992cd7de9bb690 (diff) | |
download | ghdl-3ba26e2631c3a8d5b668c25f4b9f043f0b0eaa0c.tar.gz ghdl-3ba26e2631c3a8d5b668c25f4b9f043f0b0eaa0c.tar.bz2 ghdl-3ba26e2631c3a8d5b668c25f4b9f043f0b0eaa0c.zip |
vhdl-annotations: partial revert of previous patch for
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-annotations.adb | 10 |
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); |