From 1325c83731501d5bd05cd38e8c3301749eb99243 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 12 Sep 2016 20:32:20 +0200
Subject: vhdl08: add dependency on package body in package instantiation.

---
 src/vhdl/sem.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index 10e5d2bc8..a1bc4dc04 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -2768,7 +2768,9 @@ package body Sem is
       if Get_Need_Body (Pkg) then
          Bod := Libraries.Load_Secondary_Unit
            (Get_Design_Unit (Pkg), Null_Identifier, Decl);
-         if Bod /= Null_Iir then
+         if Is_Null (Bod) then
+            Error_Msg_Sem (+Decl, "cannot find package body of %n", +Pkg);
+         else
             Add_Dependence (Bod);
          end if;
       end if;
-- 
cgit v1.2.3