From 626f7229e068914434c6d421dfc2ea7318e265c4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 24 May 2021 19:12:02 +0200
Subject: netlists-memories: avoid a crash on uninitialized ROM.

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

(limited to 'src/synth')

diff --git a/src/synth/netlists-memories.adb b/src/synth/netlists-memories.adb
index 85ce0e3fd..b19c4fda2 100644
--- a/src/synth/netlists-memories.adb
+++ b/src/synth/netlists-memories.adb
@@ -2330,7 +2330,15 @@ package body Netlists.Memories is
             return True;
          when Id_Signal
            | Id_Isignal =>
-            return Is_Const_Input (Get_Input_Instance (Inst, 0));
+            declare
+               Inp : constant Net := Get_Input_Net (Inst, 0);
+            begin
+               if Inp = No_Net then
+                  return False;
+               else
+                  return Is_Const_Input (Get_Net_Parent (Inp));
+               end if;
+            end;
          when others =>
             --  FIXME: handle other consts ?
             return False;
-- 
cgit v1.2.3