From 976b7863df71850e8a3e1b791d2c38907db397b3 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 11 Jan 2023 05:02:31 +0100 Subject: simul: handle array element resolution --- src/simul/simul-vhdl_simul.adb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/simul') diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb index 690b052ba..82342b599 100644 --- a/src/simul/simul-vhdl_simul.adb +++ b/src/simul/simul-vhdl_simul.adb @@ -2718,8 +2718,13 @@ package body Simul.Vhdl_Simul is and then Get_Kind (Sig_Type) in Iir_Kinds_Subtype_Definition then Resolv_Func := Get_Resolution_Indication (Sig_Type); - if Resolv_Func /= Null_Node then + if Resolv_Func /= Null_Node + and then + Get_Kind (Resolv_Func) /= Iir_Kind_Array_Element_Resolution + then Resolv_Func := Get_Named_Entity (Resolv_Func); + else + Resolv_Func := Null_Node; end if; if Resolv_Func /= Null_Node and then -- cgit v1.2.3