From 26d6de24d7f93a1dde14ac457d67e3258b946c94 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 13 Oct 2022 03:43:18 +0200 Subject: elab-vhd_expr: handle more cases in exec_type_of_object --- src/synth/elab-vhdl_expr.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/synth/elab-vhdl_expr.adb b/src/synth/elab-vhdl_expr.adb index 15e14417d..a417f08a6 100644 --- a/src/synth/elab-vhdl_expr.adb +++ b/src/synth/elab-vhdl_expr.adb @@ -363,6 +363,8 @@ package body Elab.Vhdl_Expr is end; when Iir_Kind_Simple_Name => return Exec_Type_Of_Object (Syn_Inst, Get_Named_Entity (Expr)); + when Iir_Kind_Parenthesis_Expression => + return Exec_Type_Of_Object (Syn_Inst, Get_Expression (Expr)); when Iir_Kind_Slice_Name => declare use Netlists; @@ -410,7 +412,8 @@ package body Elab.Vhdl_Expr is return Res.Typ; end; - when Iir_Kind_String_Literal8 => + when Iir_Kind_String_Literal8 + | Iir_Kind_Aggregate => -- TODO: the value should be computed (once) and its type -- returned. return Synth_Subtype_Indication (Syn_Inst, Get_Type (Expr)); -- cgit v1.2.3