From d23ad4452b1b8728fe546f25f97fe9a8bdcaf288 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 6 Sep 2022 20:43:13 +0200
Subject: simul: fix computation for number of drivers

---
 src/simul/simul-vhdl_elab.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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;
-- 
cgit v1.2.3