vhdl-sem: improve error location for unknown entity.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb
index 4ce298b40..8a54f2e5e 100644
--- a/src/vhdl/vhdl-sem.adb
+++ b/src/vhdl/vhdl-sem.adb
@@ -122,7 +122,7 @@ package body Vhdl.Sem is
          Entity := Load_Primary_Unit
            (Library, Get_Identifier (Name), Library_Unit);
          if Entity = Null_Iir then
-            Error_Msg_Sem (+Library_Unit, "entity %n was not analysed", +Name);
+            Error_Msg_Sem (+Name, "entity %n was not analysed", +Name);
             return Null_Iir;
          end if;
          Entity := Get_Library_Unit (Entity);