1 files changed, 8 insertions, 3 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index 580eec452..0b2eb9110 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -766,9 +766,14 @@ package body Netlists.Disp_Vhdl is
          begin
             Val := Get_Input_Net (Mem, 1);
             Val_Inst := Get_Net_Parent (Val);
-            if Get_Id (Val_Inst) = Id_Isignal then
-               Val := Get_Input_Net (Val_Inst, 1);
-            end if;
+            case Get_Id (Val_Inst) is
+               when Id_Isignal =>
+                  Val := Get_Input_Net (Val_Inst, 1);
+               when Id_Signal =>
+                  Val := Get_Input_Net (Val_Inst, 0);
+               when others =>
+                  null;
+            end case;
             Put (" :=");
             Disp_Memory_Init (Val, Data_W, Depth);
          end;