diff options
Diffstat (limited to 'src/synth/synth-values-debug.adb')
| -rw-r--r-- | src/synth/synth-values-debug.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/synth/synth-values-debug.adb b/src/synth/synth-values-debug.adb index 493c30e7e..2e3e111c1 100644 --- a/src/synth/synth-values-debug.adb +++ b/src/synth/synth-values-debug.adb @@ -20,8 +20,11 @@ with Simple_IO; use Simple_IO; with Utils_IO; use Utils_IO; + with Vhdl.Nodes; use Vhdl.Nodes; +with Synth.Environment.Debug; use Synth.Environment.Debug; + package body Synth.Values.Debug is procedure Put_Dir (Dir : Direction_Type) is begin @@ -178,9 +181,11 @@ package body Synth.Values.Debug is | Value_Const => Debug_Memtyp (Get_Memtyp (V)); when Value_Net => - Put_Line ("a net"); + Put_Line (" net"); when Value_Wire => - Put_Line ("a wire"); + Put (" wire"); + Put_Wire_Id (V.Val.W); + New_Line; when Value_File => Put_Line ("a file"); when Value_Alias => |