vhdl: avoid crash on indexed library declaration.

1 files changed, 3 insertions, 4 deletions

diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index 56aab131b..8f7cce4a5 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -3075,7 +3075,9 @@ package body Vhdl.Sem_Names is
            | Iir_Kind_Type_Conversion
            | Iir_Kind_Unit_Declaration
            | Iir_Kind_Enumeration_Literal
-           | Iir_Kind_Attribute_Declaration =>
+           | Iir_Kind_Attribute_Declaration
+           | Iir_Kinds_Library_Unit
+           | Iir_Kind_Library_Declaration =>
             Error_Msg_Sem (+Name, "%n cannot be indexed or sliced", +Prefix);
             Res := Null_Iir;
 
@@ -3083,9 +3085,6 @@ package body Vhdl.Sem_Names is
            | Iir_Kind_Psl_Endpoint_Declaration =>
             Res := Sem_Psl.Sem_Psl_Name (Name);
 
-         when Iir_Kinds_Library_Unit =>
-            Error_Msg_Sem (+Name, "function name is a design unit");
-
          when Iir_Kind_Error =>
             --  Continue with the error.
             Res := Prefix;