From 3a1f9c3fa9ef0224c4add88cd6020d8a933426ee Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 17 Jul 2019 06:21:41 +0200 Subject: synth: renaming of Assign to Seq_Assign. --- src/synth/synth-environment-debug.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/synth/synth-environment-debug.adb') 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; -- cgit v1.2.3