From ffa43831abc1e3f35796a83459dbd62757f2d286 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 23 Jul 2021 18:24:09 +0200
Subject: vhdl-sem_stmts.adb: avoid a crash when forced analysis.

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

diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb
index 287f54dab..771a09c3a 100644
--- a/src/vhdl/vhdl-sem_stmts.adb
+++ b/src/vhdl/vhdl-sem_stmts.adb
@@ -1863,6 +1863,10 @@ package body Vhdl.Sem_Stmts is
       Comp_Name : Iir;
       Comp : Iir;
    begin
+      if Is_Error (Inst) then
+         return Null_Iir;
+      end if;
+
       if Get_Kind (Inst) in Iir_Kinds_Entity_Aspect then
          return Sem_Entity_Aspect (Inst);
       else
-- 
cgit v1.2.3