From 242f1e9dff861198e0fd317f494cc5d78d159d81 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 18 Apr 2020 09:22:50 +0200
Subject: synth-values-debug: handle all kind of valtyp.

---
 src/synth/synth-values-debug.adb | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb
index 7be7d667d..f43a71ea2 100644
--- a/src/synth/synth-values-debug.adb
+++ b/src/synth/synth-values-debug.adb
@@ -147,7 +147,19 @@ package body Synth.Values.Debug is
 
    procedure Debug_Valtyp (V : Valtyp) is
    begin
-      Debug_Memtyp (Get_Memtyp (V));
+      case V.Val.Kind is
+         when Value_Memory
+           | Value_Const =>
+            Debug_Memtyp (Get_Memtyp (V));
+         when Value_Net =>
+            Put_Line ("a net");
+         when Value_Wire =>
+            Put_Line ("a wire");
+         when Value_File =>
+            Put_Line ("a file");
+         when Value_Alias =>
+            Put_Line ("an alias");
+      end case;
    end Debug_Valtyp;
 
 end Synth.Values.Debug;
-- 
cgit v1.2.3