From 03eee572b097c50696268d9cb8186b7ba01fdc82 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 1 Jul 2016 06:55:48 +0200
Subject: A package instantiation does not depend on the body if it is not
 required.

Tentative fix for issue #107.
---
 src/vhdl/sem.adb | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index cd238c475..aefb13900 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -2670,10 +2670,12 @@ package body Sem is
 
       --  FIXME: unless the parent is a package declaration library unit, the
       --  design unit depends on the body.
-      Bod := Libraries.Load_Secondary_Unit
-        (Get_Design_Unit (Pkg), Null_Identifier, Decl);
-      if Bod /= Null_Iir then
-         Add_Dependence (Bod);
+      if Get_Need_Body (Pkg) then
+         Bod := Libraries.Load_Secondary_Unit
+           (Get_Design_Unit (Pkg), Null_Identifier, Decl);
+         if Bod /= Null_Iir then
+            Add_Dependence (Bod);
+         end if;
       end if;
    end Sem_Package_Instantiation_Declaration;
 
-- 
cgit v1.2.3