From a8babf4111c6724dab1446e70d12da50a324eb5e Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 30 Jul 2022 09:27:22 +0200 Subject: trans-chap3: translate subtype indication of access subtype. Fix #2152 --- src/vhdl/translate/trans-chap3.adb | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) (limited to 'src/vhdl') 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); -- cgit v1.2.3