diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-12 19:01:59 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-12 19:01:59 +0100 |
| commit | 9e5342c2299a14c39d04974d6a7a098fd01173fe (patch) | |
| tree | 5b9f0c0b81a33740305c15efd949e32441f80e2d /src/grt | |
| parent | 552d366f8ca84768a729d7295c4e5e5177a0a3cd (diff) | |
| download | ghdl-9e5342c2299a14c39d04974d6a7a098fd01173fe.tar.gz ghdl-9e5342c2299a14c39d04974d6a7a098fd01173fe.tar.bz2 ghdl-9e5342c2299a14c39d04974d6a7a098fd01173fe.zip | |
grt: improve --disp-signals-table output.
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-disp_signals.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index 424d20dcf..ebb249954 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -425,6 +425,14 @@ 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 + when Kind_Signal_No => + Put (" "); + when Kind_Signal_Register => + Put (" reg"); + when Kind_Signal_Bus => + Put (" bus"); + end case; if Sig.S.Effective /= null then Put (" eff: "); Put (stdout, Sig.S.Effective.all'Address); |