diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-04-27 06:58:02 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-04-27 21:14:35 +0200 |
| commit | 94d4ef5976f9bd15e4253200b0577a7a86e0bc22 (patch) | |
| tree | 5ea06b5fcef250fd98efd896e2a6ae5fc7048a21 /src/synth/synth-environment-debug.adb | |
| parent | f5715a802c157614b6cd9ad4f0195ce77cbd0997 (diff) | |
| download | ghdl-94d4ef5976f9bd15e4253200b0577a7a86e0bc22.tar.gz ghdl-94d4ef5976f9bd15e4253200b0577a7a86e0bc22.tar.bz2 ghdl-94d4ef5976f9bd15e4253200b0577a7a86e0bc22.zip | |
synth: use a generic version of synth-environment.
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; |