From 9e5342c2299a14c39d04974d6a7a098fd01173fe Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 12 Jan 2015 19:01:59 +0100
Subject: grt: improve --disp-signals-table output.

---
 src/grt/grt-disp_signals.adb | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/grt')

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);
-- 
cgit v1.2.3