From d4f719d52b7de2a43e1dd3cc19f42e3880abc8f8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 28 Sep 2022 19:27:23 +0200
Subject: synth: handle guard signal in debugger

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

(limited to 'src/grt')

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