From c55c477f49dcdeaccd2100cda96635bbc62ea4e6 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 18 Sep 2021 17:39:40 +0200 Subject: vhdl-evaluation.adb: handle iir_kind_aggregate in build_constant. Fix #543 --- src/vhdl/vhdl-evaluation.adb | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src/vhdl') diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb index 1b74d6987..6305cdbae 100644 --- a/src/vhdl/vhdl-evaluation.adb +++ b/src/vhdl/vhdl-evaluation.adb @@ -248,6 +248,17 @@ package body Vhdl.Evaluation is Res := Create_Iir (Iir_Kind_Simple_Aggregate); Set_Simple_Aggregate_List (Res, Get_Simple_Aggregate_List (Val)); + when Iir_Kind_Aggregate => + -- FIXME: ownership violation: both RES and VAL are parents of + -- association_choices_chain and aggregate_info. + -- But this aggregate is always temporary. + -- TODO: add maybe_ref_chain. + Res := Create_Iir (Iir_Kind_Aggregate); + Set_Association_Choices_Chain + (Res, Get_Association_Choices_Chain (Val)); + Set_Aggregate_Info (Res, Get_Aggregate_Info (Val)); + Set_Aggregate_Expand_Flag (Res, Get_Aggregate_Expand_Flag (Val)); + when Iir_Kind_Overflow_Literal => Res := Create_Iir (Iir_Kind_Overflow_Literal); -- cgit v1.2.3