From d4e80643bc015d6404d9ac23a32cf9c5ff084976 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 13 Nov 2021 22:14:46 +0100 Subject: synth: add exec_name_subtype. Fix #1911 --- src/synth/elab-vhdl_types.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/synth/elab-vhdl_types.adb') diff --git a/src/synth/elab-vhdl_types.adb b/src/synth/elab-vhdl_types.adb index 1238bec39..300f57427 100644 --- a/src/synth/elab-vhdl_types.adb +++ b/src/synth/elab-vhdl_types.adb @@ -76,15 +76,13 @@ package body Elab.Vhdl_Types is Dim : constant Natural := Vhdl.Evaluation.Eval_Attribute_Parameter_Or_1 (Attr); Typ : Type_Acc; - Val : Valtyp; begin -- Prefix is an array object or an array subtype. if Get_Kind (Prefix) = Iir_Kind_Subtype_Declaration then -- TODO: does this cover all the cases ? Typ := Get_Subtype_Object (Syn_Inst, Get_Subtype_Indication (Prefix)); else - Val := Exec_Name (Syn_Inst, Prefix_Name); - Typ := Val.Typ; + Typ := Exec_Name_Subtype (Syn_Inst, Prefix_Name); end if; return Get_Array_Bound (Typ, Dim_Type (Dim)); -- cgit v1.2.3