diff options
| -rw-r--r-- | src/synth/synth-values-debug.adb | 14 |
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; |