From 63f06845f2ba7aa339a235aaf98b6e089fe5901f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 3 Nov 2019 20:24:23 +0100
Subject: synth: fix multiport read memories (for issue #1000)

---
 src/synth/netlists-memories.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/synth/netlists-memories.adb b/src/synth/netlists-memories.adb
index 4163e4878..866427cf9 100644
--- a/src/synth/netlists-memories.adb
+++ b/src/synth/netlists-memories.adb
@@ -428,6 +428,7 @@ package body Netlists.Memories is
       --  Convert readers.
       declare
          Inp : Input;
+         Next_Inp : Input;
          Extr_Inst : Instance;
          Addr_Inp : Input;
          Addr : Net;
@@ -437,6 +438,7 @@ package body Netlists.Memories is
       begin
          Inp := Get_First_Sink (Orig_Net);
          while Inp /= No_Input loop
+            Next_Inp := Get_Next_Sink (Inp);
             Extr_Inst := Get_Input_Parent (Inp);
             case Get_Id (Extr_Inst) is
                when Id_Memory_Init =>
@@ -468,7 +470,7 @@ package body Netlists.Memories is
                when others =>
                   raise Internal_Error;
             end case;
-            Inp := Get_Next_Sink (Inp);
+            Inp := Next_Inp;
          end loop;
       end;
    end Replace_Read_Ports;
-- 
cgit v1.2.3