From 3db4d63dd47f0d7b7893316d055765c450becdf6 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 25 Sep 2016 12:38:35 +0200
Subject: Avoid a crash due to cascaded errors.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index a886e8431..08c3a7a8b 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -2604,7 +2604,9 @@ package body Sem is
                   Pkg : constant Iir :=
                     Get_Named_Entity (Get_Uninstantiated_Package_Name (El));
                begin
-                  if Get_Need_Body (Pkg) then
+                  if not Is_Error (Pkg)
+                    and then Get_Need_Body (Pkg)
+                  then
                      return True;
                   end if;
                end;
-- 
cgit v1.2.3