1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index 99ce824e9..ac9b965dd 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -240,6 +240,8 @@ package body Iirs_Utils is
                Adecl := Get_Named_Entity (Adecl);
             when Iir_Kind_Attribute_Name =>
                return Get_Named_Entity (Adecl);
+            when Iir_Kind_Error =>
+               return Adecl;
             when others =>
                Error_Kind ("get_object_prefix", Adecl);
          end case;