netlists-memories: allow intermediate signals to detect sync read.

Fix #1079

1 files changed, 12 insertions, 0 deletions

diff --git a/src/synth/netlists-utils.adb b/src/synth/netlists-utils.adb
index 59eb086d5..3f9a9fd46 100644
--- a/src/synth/netlists-utils.adb
+++ b/src/synth/netlists-utils.adb
@@ -175,6 +175,18 @@ package body Netlists.Utils is
       end case;
    end Get_Net_Element;
 
+   function Skip_Signal (N : Net) return Net
+   is
+      Inst : constant Instance := Get_Net_Parent (N);
+   begin
+      case Get_Id (Inst) is
+         when Id_Signal =>
+            return Get_Input_Net (Inst, 0);
+         when others =>
+            return N;
+      end case;
+   end Skip_Signal;
+
    function Is_Connected (O : Net) return Boolean is
    begin
       return Get_First_Sink (O) /= No_Input;