diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-10-30 07:11:28 +0100 |
commit | ce10f7dbd57cb5d2273567aa536bfce79620849c (patch) | |
tree | 62fdd99a17aa09a04166e014444aeb8b732dce81 /src/grt/grt-disp_signals.adb | |
parent | ab70415983fec433dd35aea6cc8b107699a5aff0 (diff) | |
download | ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.gz ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.tar.bz2 ghdl-ce10f7dbd57cb5d2273567aa536bfce79620849c.zip |
Rework callbacks, support cocotb.
Diffstat (limited to 'src/grt/grt-disp_signals.adb')
-rw-r--r-- | src/grt/grt-disp_signals.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index ebb249954..684a4548c 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -425,7 +425,7 @@ package body Grt.Disp_Signals is if Sig.S.Mode_Sig in Mode_Signal_User then Put (" #drv: "); Put_I32 (stdout, Ghdl_I32 (Sig.S.Nbr_Drivers)); - case Sig.Sig_Kind is + case Sig.Flags.Sig_Kind is when Kind_Signal_No => Put (" "); when Kind_Signal_Register => @@ -460,6 +460,7 @@ package body Grt.Disp_Signals is procedure Disp_A_Signal (Sig : Ghdl_Signal_Ptr) is begin + Put_Signal_Name (stdout, Sig); Disp_Simple_Signal (Sig, null, True); end Disp_A_Signal; |