diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-07-17 06:21:41 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-07-17 06:21:41 +0200 |
commit | 3a1f9c3fa9ef0224c4add88cd6020d8a933426ee (patch) | |
tree | 3dbe5d17d6a299476e584ea4a23e11d3b802f1c9 /src/synth/synth-environment-debug.adb | |
parent | 13b255a60d2dc00a1cecc2a2f3dbbd4b2313a919 (diff) | |
download | ghdl-3a1f9c3fa9ef0224c4add88cd6020d8a933426ee.tar.gz ghdl-3a1f9c3fa9ef0224c4add88cd6020d8a933426ee.tar.bz2 ghdl-3a1f9c3fa9ef0224c4add88cd6020d8a933426ee.zip |
synth: renaming of Assign to Seq_Assign.
Diffstat (limited to 'src/synth/synth-environment-debug.adb')
-rw-r--r-- | src/synth/synth-environment-debug.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/synth/synth-environment-debug.adb b/src/synth/synth-environment-debug.adb index b1ac137c5..693d20068 100644 --- a/src/synth/synth-environment-debug.adb +++ b/src/synth/synth-environment-debug.adb @@ -32,10 +32,10 @@ package body Synth.Environment.Debug is Put (" Init: "); Dump_Net_Name (W_Rec.Gate); New_Line; - Put_Line (" cur_assign:" & Assign'Image (W_Rec.Cur_Assign)); + Put_Line (" cur_assign:" & Seq_Assign'Image (W_Rec.Cur_Assign)); end Dump_Wire_Id; - procedure Dump_Assign (Asgn : Assign) + procedure Dump_Assign (Asgn : Seq_Assign) is procedure Dump_Value (N : Net) is begin @@ -47,13 +47,13 @@ package body Synth.Environment.Debug is Put ("unassigned"); end if; end Dump_Value; - Rec : Assign_Record renames Assign_Table.Table (Asgn); + Rec : Seq_Assign_Record renames Assign_Table.Table (Asgn); begin - Put ("Assign" & Assign'Image (Asgn)); + Put ("Assign" & Seq_Assign'Image (Asgn)); Put (" Id:" & Wire_Id'Image (Rec.Id)); - Put (", prev_assign:" & Assign'Image (Rec.Prev)); + Put (", prev_assign:" & Seq_Assign'Image (Rec.Prev)); Put (", phi:" & Phi_Id'Image (Rec.Phi)); - Put (", chain:" & Assign'Image (Rec.Chain)); + Put (", chain:" & Seq_Assign'Image (Rec.Chain)); New_Line; Put (" value: "); Dump_Value (Rec.Value); @@ -63,12 +63,12 @@ package body Synth.Environment.Debug is procedure Dump_Phi (Id : Phi_Id) is Phi : Phi_Type renames Phis_Table.Table (Id); - Asgn : Assign; + Asgn : Seq_Assign; begin Put ("phi_id:" & Phi_Id'Image (Id) & ", nbr:" & Uns32'Image (Phi.Nbr)); New_Line; Asgn := Phi.First; - while Asgn /= No_Assign loop + while Asgn /= No_Seq_Assign loop Dump_Assign (Asgn); Asgn := Get_Assign_Chain (Asgn); end loop; |