1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb
index 228feef94..89340b255 100644
--- a/src/synth/synth-insts.adb
+++ b/src/synth/synth-insts.adb
@@ -1088,6 +1088,11 @@ package body Synth.Insts is
                                     Get_Port_Chain (Ent),
                                     Get_Port_Map_Aspect_Chain (Stmt));
 
+      if Is_Error (Sub_Inst) then
+         --  TODO: Free it?
+         return;
+      end if;
+
       if Arch /= Null_Node then
          --  For whiteboxes: append parameters or/and hash.
          Enc := Name_Hash;