From 6238f3faab69113903b78da25e1b82f0e195018d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 3 Jul 2020 08:08:01 +0200
Subject: vhdl-configuration: avoid a crash after not-found component.

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

diff --git a/src/vhdl/vhdl-configuration.adb b/src/vhdl/vhdl-configuration.adb
index 0f5c63b62..15717718a 100644
--- a/src/vhdl/vhdl-configuration.adb
+++ b/src/vhdl/vhdl-configuration.adb
@@ -546,6 +546,9 @@ package body Vhdl.Configuration is
       Parent : Iir;
    begin
       Parent := Strip_Denoting_Name (Inst);
+      if Is_Error (Parent) then
+         return False;
+      end if;
       loop
          Parent := Get_Parent (Parent);
          if Get_Kind (Parent) = Iir_Kind_Library_Declaration then
-- 
cgit v1.2.3