From d1f7d9d8c85c7b97c3bf8acf791aa7b15c2039bf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Jun 2019 18:25:36 +0200
Subject: vhdl-sem_specs: avoid a crash on missing entity name.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-sem_specs.adb b/src/vhdl/vhdl-sem_specs.adb
index aecaaa47f..8d930263c 100644
--- a/src/vhdl/vhdl-sem_specs.adb
+++ b/src/vhdl/vhdl-sem_specs.adb
@@ -1116,6 +1116,10 @@ package body Vhdl.Sem_Specs is
                Arch_Unit : Iir;
             begin
                --  The entity.
+               Entity_Name := Get_Entity_Name (Aspect);
+               if Is_Error (Entity_Name) then
+                  return Null_Iir;
+               end if;
                Entity_Name := Sem_Denoting_Name (Get_Entity_Name (Aspect));
                Set_Entity_Name (Aspect, Entity_Name);
                Entity := Get_Named_Entity (Entity_Name);
-- 
cgit v1.2.3