diff options
-rw-r--r-- | src/synth/netlists-memories.adb | 10 |
1 files changed, 9 insertions, 1 deletions
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; |