From b25f7f63976c9c24a9916e58eb9e73ba08e91988 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Apr 2020 20:46:58 +0200
Subject: synth-values-debug: handle all types.

---
 src/synth/synth-values-debug.adb | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb
index 282082cda..fd797d81c 100644
--- a/src/synth/synth-values-debug.adb
+++ b/src/synth/synth-values-debug.adb
@@ -43,6 +43,9 @@ package body Synth.Values.Debug is
    procedure Debug_Memtyp (M : Memtyp) is
    begin
       case M.Typ.Kind is
+         when Type_Bit
+           | Type_Logic =>
+            Put ("bit/logic");
          when Type_Vector =>
             Put ("vector (");
             Debug_Bound (M.Typ.Vbound);
@@ -79,8 +82,18 @@ package body Synth.Values.Debug is
          when Type_Discrete =>
             Put ("discrete: ");
             Put_Int64 (Read_Discrete (M));
-         when others =>
-            Put ("others");
+         when Type_Access =>
+            Put ("access");
+         when Type_File =>
+            Put ("file");
+         when Type_Float =>
+            Put ("float");
+         when Type_Slice =>
+            Put ("slice");
+         when Type_Unbounded_Vector =>
+            Put ("unbounded vector");
+         when Type_Unbounded_Array =>
+            Put ("unbounded array");
       end case;
       New_Line;
    end Debug_Memtyp;
-- 
cgit v1.2.3