From 41439f51ce81a986f029622c901d81f9edfae2ff Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 20 May 2019 18:16:56 +0200
Subject: vhdl-utils: avoid a crash on architecture without name.

---
 src/vhdl/vhdl-utils.adb | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/vhdl/vhdl-utils.adb')

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 4a82dc7f2..e1477a7bc 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -1384,6 +1384,8 @@ package body Vhdl.Utils is
          when Iir_Kind_Simple_Name
            | Iir_Kind_Selected_Name =>
             return Get_Identifier (Name);
+         when Iir_Kind_Error =>
+            return Null_Identifier;
          when others =>
             Error_Kind ("get_entity_identifier_of_architecture", Name);
       end case;
-- 
cgit v1.2.3