vhdl: Iir_Kind_Foreign_Module is now a library unit

(instead of a design unit).
Also, add Iir_Kind_Foreign_Vector_Type_Definition

1 files changed, 4 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index 28bfcaab4..56096a2b0 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -2456,7 +2456,9 @@ package body Vhdl.Sem_Names is
                   Check_Synopsys_Package (Prefix);
                end if;
                Sem.Add_Dependence (Res);
-               Res := Get_Library_Unit (Res);
+               if Get_Kind (Res) = Iir_Kind_Design_Unit then
+                  Res := Get_Library_Unit (Res);
+               end if;
             elsif not Soft then
                Error_Msg_Sem
                  (+Name, "unit %i not found in %n", (+Suffix, +Prefix));
@@ -4993,6 +4995,7 @@ package body Vhdl.Sem_Names is
            | Iir_Kind_Package_Instantiation_Declaration
            | Iir_Kind_Interface_Package_Declaration
            | Iir_Kind_Library_Declaration
+           | Iir_Kind_Foreign_Module
            | Iir_Kinds_Subprogram_Declaration
            | Iir_Kind_Component_Declaration =>
             Res := Finish_Sem_Name (Name, Res);