diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-28 19:27:23 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-28 19:27:23 +0200 |
commit | d4f719d52b7de2a43e1dd3cc19f42e3880abc8f8 (patch) | |
tree | 6e7ea29e7a70a9a5a5a90a5847cf89917cf7b719 /src/grt | |
parent | fe07ef095be4c8bc0e1f6e6d8eb94692c27445c7 (diff) | |
download | ghdl-d4f719d52b7de2a43e1dd3cc19f42e3880abc8f8.tar.gz ghdl-d4f719d52b7de2a43e1dd3cc19f42e3880abc8f8.tar.bz2 ghdl-d4f719d52b7de2a43e1dd3cc19f42e3880abc8f8.zip |
synth: handle guard signal in debugger
Diffstat (limited to 'src/grt')
-rw-r--r-- | src/grt/grt-disp_signals.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index bf3befe2f..dec12ca23 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -177,10 +177,21 @@ package body Grt.Disp_Signals is Put (C); end Disp_Flag; - procedure Disp_Single_Signal_Attributes (Sig : Ghdl_Signal_Ptr) is + procedure Disp_Single_Signal_Attributes (Sig : Ghdl_Signal_Ptr) + is + C : Character; begin Disp_Mode (Sig.Mode); Put (' '); + case Sig.Flags.Sig_Kind is + when Kind_Signal_No => + C := '-'; + when Kind_Signal_Register => + C := 'R'; + when Kind_Signal_Bus => + C := 'B'; + end case; + Put (C); Disp_Flag ('A', Sig.Active); Disp_Flag ('E', Sig.Event); Disp_Flag ('a', Sig.Has_Active); |