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(+)

(limited to 'src/synth/synth-environment.adb')

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