diff options
Diffstat (limited to 'src/synth/synth-environment-debug.adb')
| -rw-r--r-- | src/synth/synth-environment-debug.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/synth-environment-debug.adb b/src/synth/synth-environment-debug.adb index 46e88ecfa..a05512b17 100644 --- a/src/synth/synth-environment-debug.adb +++ b/src/synth/synth-environment-debug.adb @@ -19,7 +19,7 @@ with Ada.Text_IO; use Ada.Text_IO; with Netlists.Dump; use Netlists.Dump; -with Synth.Values.Debug; use Synth.Values.Debug; +-- with Synth.Values.Debug; use Synth.Values.Debug; package body Synth.Environment.Debug is procedure Put_Wire_Id (Wid : Wire_Id) is @@ -34,7 +34,7 @@ package body Synth.Environment.Debug is Put ("Wire:"); Put_Wire_Id (Wid); Put_Line (" kind: " & Wire_Kind'Image (W_Rec.Kind)); - Put_Line (" decl:" & Source.Syn_Src'Image (W_Rec.Decl)); +-- Put_Line (" decl:" & Source.Syn_Src'Image (W_Rec.Decl)); Put (" gate: "); Dump_Net_Name (W_Rec.Gate, True); New_Line; @@ -84,7 +84,7 @@ package body Synth.Environment.Debug is declare W_Rec : Wire_Id_Record renames Wire_Id_Table.Table (Rec.Id); begin - Put_Line (" wire decl:" & Source.Syn_Src'Image (W_Rec.Decl)); +-- Put_Line (" wire decl:" & Source.Syn_Src'Image (W_Rec.Decl)); Put (" wire gate: "); Dump_Net_Name (W_Rec.Gate, True); New_Line; @@ -95,7 +95,7 @@ package body Synth.Environment.Debug is Put_Line (" ??? (unknown)"); when True => Put_Line (" static:"); - Debug_Memtyp (Rec.Val.Val); +-- Debug_Memtyp (Rec.Val.Val); when False => Dump_Partial_Assign (Rec.Val.Asgns); end case; |