diff options
| -rw-r--r-- | src/simul/simul-vhdl_elab.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb index 1332b479b..c71345ec5 100644 --- a/src/simul/simul-vhdl_elab.adb +++ b/src/simul/simul-vhdl_elab.adb @@ -906,7 +906,8 @@ package body Simul.Vhdl_Elab is Signals_Table.Table (E.Collapsed_By) .Nbr_Sources (J - 1); begin - C_Ns.Total := C_Ns.Total + Ns.Total; + -- Remove 1 for the connection. + C_Ns.Total := C_Ns.Total + Ns.Total - 1; end; end if; end; |