aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/simul/simul-vhdl_debug.adb16
1 files changed, 15 insertions, 1 deletions
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.