From ae2ab19fbb8ae45c72229aea207e8bc30779cc1b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Fri, 9 Sep 2016 18:43:59 +0100
Subject: vhdl08: avoid a crash on package instantiation failure

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

(limited to 'src')

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 8c56e971e..441329234 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1388,7 +1388,7 @@ package body Sem_Assocs is
          return;
       end if;
 
-      Match := Fully_Compatible;
+      Match := Not_Compatible;
       Sem_Association_Package_Type_Finish (Assoc, Inter);
 
       --  Analyze actual.
@@ -1436,6 +1436,8 @@ package body Sem_Assocs is
          raise Internal_Error;
       end if;
 
+      Match := Fully_Compatible;
+
       return;
    end Sem_Association_Package;
 
-- 
cgit v1.2.3