diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index adb1f9d01..6d0e3c21d 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -2526,9 +2526,20 @@ package body Trans.Chap3 is end if; when Iir_Kind_Access_Subtype_Definition => - -- Like the access type. - Free_Info (Def); - Set_Info (Def, Get_Info (Get_Parent_Type (Def))); + declare + Ind : constant Iir := Get_Designated_Subtype_Indication (Def); + Mark : Id_Mark_Type; + begin + if Ind /= Null_Iir then + Push_Identifier_Prefix (Mark, "EST"); + Translate_Subtype_Definition (Ind, With_Vars); + Pop_Identifier_Prefix (Mark); + end if; + + -- Like the access type. + Free_Info (Def); + Set_Info (Def, Get_Info (Get_Parent_Type (Def))); + end; when others => Error_Kind ("translate_subtype_definition", Def); |