From 359d7be5aae9ec4e487f6877df6c5368c16f6177 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 13 Oct 2022 03:37:32 +0200 Subject: simul-vhdl_elab: fix crash on association with implicit signals --- src/simul/simul-vhdl_elab.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb index 89e75e7c7..52f98817b 100644 --- a/src/simul/simul-vhdl_elab.adb +++ b/src/simul/simul-vhdl_elab.adb @@ -1020,7 +1020,10 @@ package body Simul.Vhdl_Elab is if Ns.Total = 0 and then Is_Out then Ns.Total := 1; end if; - if E.Collapsed_By /= No_Signal_Index then + if E.Collapsed_By /= No_Signal_Index + and then (Signals_Table.Table (E.Collapsed_By).Kind + in Mode_Signal_User) + then -- Add to the parent. declare C_Ns : Nbr_Sources_Type renames -- cgit v1.2.3