diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-08-24 21:47:43 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-08-24 21:47:43 +0200 |
commit | 461261a43ef650a42d8a39018acbbd6a2cdff8a6 (patch) | |
tree | 5395e46617f545ee486532f23da5221c00b61032 | |
parent | 4f40d9fa91fcb3fc5a178b6ed5f148faa79e57fd (diff) | |
download | ghdl-461261a43ef650a42d8a39018acbbd6a2cdff8a6.tar.gz ghdl-461261a43ef650a42d8a39018acbbd6a2cdff8a6.tar.bz2 ghdl-461261a43ef650a42d8a39018acbbd6a2cdff8a6.zip |
grt-disp_signals: also disp conversions ranges
-rw-r--r-- | src/grt/grt-disp_signals.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index d7d5df4fa..bf3befe2f 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -472,6 +472,17 @@ package body Grt.Disp_Signals is Put (" resolved"); end if; end if; + if Sig.S.Mode_Sig = Mode_Conv_In or Sig.S.Mode_Sig = Mode_Conv_Out + then + Put (" conv: "); + Put_I32 (stdout, Ghdl_I32 (Sig.S.Conv.Src.First)); + Put (".."); + Put_I32 (stdout, Ghdl_I32 (Sig.S.Conv.Src.Last)); + Put ("->"); + Put_I32 (stdout, Ghdl_I32 (Sig.S.Conv.Dest.First)); + Put (".."); + Put_I32 (stdout, Ghdl_I32 (Sig.S.Conv.Dest.Last)); + end if; if Boolean'(False) then Put (" link: "); Put (stdout, Sig.Link.all'Address); |