From 6898560ebf83a9e736ce3b2eedc662eec852d342 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 12 Nov 2019 18:45:54 +0100
Subject: synth-environment: fix links and counts in
---
src/synth/synth-environment.adb | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb
index 5b051d3d7..11c4b505d 100644
--- a/src/synth/synth-environment.adb
+++ b/src/synth/synth-environment.adb
@@ -262,9 +262,11 @@ package body Synth.Environment is
First := No_Seq_Assign;
Last := No_Seq_Assign;
Asgn := Phi.First;
+ Phi.Nbr := 0;
while Asgn /= No_Seq_Assign loop
pragma Assert (Assign_Table.Table (Asgn).Phi = Current_Phi);
Next_Asgn := Get_Assign_Chain (Asgn);
+ Set_Assign_Chain (Asgn, No_Seq_Assign);
Wid := Get_Wire_Id (Asgn);
if Wid = Wid1 or Wid = Wid2 then
@@ -278,6 +280,7 @@ package body Synth.Environment is
else
Set_Assign_Chain (Last, Asgn);
end if;
+ Phi.Nbr := Phi.Nbr + 1;
Last := Asgn;
end if;
Asgn := Next_Asgn;
--
cgit v1.2.3