From e21fddad501a6da262133e220970fea42177d579 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 23 Aug 2022 06:20:33 +0200 Subject: simul-vhdl_debug: disp nbr sources --- src/simul/simul-vhdl_debug.adb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/simul/simul-vhdl_debug.adb b/src/simul/simul-vhdl_debug.adb index 6a5b2154d..f2ce5cb67 100644 --- a/src/simul/simul-vhdl_debug.adb +++ b/src/simul/simul-vhdl_debug.adb @@ -453,6 +453,20 @@ package body Simul.Vhdl_Debug is Put_Uns32 (Uns32 (S.Collapsed_By)); New_Line; + if Boolean'(True) then + Put (" nbr sources (drv + conn):"); + New_Line; + for I in 0 .. S.Typ.W - 1 loop + Put (" "); + Put_Uns32 (I); + Put (": "); + Put_Uns32 (S.Nbr_Sources (I).Nbr_Drivers); + Put (" + "); + Put_Uns32 (S.Nbr_Sources (I).Nbr_Conns); + New_Line; + end loop; + end if; + if Opts.Value then Driver := S.Drivers; while Driver /= No_Driver_Index loop @@ -520,7 +534,7 @@ package body Simul.Vhdl_Debug is procedure Info_Signal (Idx : Signal_Index_Type) is begin - Info_Signal_Opts (Idx, (others => False)); + Info_Signal_Opts (Idx, (others => True)); end Info_Signal; -- For gdb. -- cgit v1.2.3