From 8fb41b61659c2ee3d86dc9aebb0b60e5582a5ac1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 3 Dec 2018 20:05:04 +0100
Subject: sem_lib: avoid missing location in error message.

---
 src/vhdl/sem_lib.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_lib.adb b/src/vhdl/sem_lib.adb
index 5f1c0b367..6595731c2 100644
--- a/src/vhdl/sem_lib.adb
+++ b/src/vhdl/sem_lib.adb
@@ -192,7 +192,7 @@ package body Sem_Lib is
       end if;
 
       if Get_Date (Design_Unit) = Date_Obsolete then
-         Error_Msg_Sem (+Design_Unit, "%n has been obsoleted",
+         Error_Msg_Sem (+Loc, "%n has been obsoleted",
                         +Get_Library_Unit (Design_Unit));
          raise Compilation_Error;
       end if;
-- 
cgit v1.2.3