1 files changed, 13 insertions, 1 deletions
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;