diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-18 09:22:50 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-18 09:22:50 +0200 |
| commit | 242f1e9dff861198e0fd317f494cc5d78d159d81 (patch) | |
| tree | 0a7cc1a54276aaf233da4a19ba8d546ba9752129 | |
| parent | 304868c00803062cab662d308def9f091305f081 (diff) | |
| download | ghdl-242f1e9dff861198e0fd317f494cc5d78d159d81.tar.gz ghdl-242f1e9dff861198e0fd317f494cc5d78d159d81.tar.bz2 ghdl-242f1e9dff861198e0fd317f494cc5d78d159d81.zip | |
synth-values-debug: handle all kind of valtyp.
| -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; |