From d202c30eaaa47d30d80f870bdf665a6c96430fd8 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 13 Sep 2017 05:57:31 +0200
Subject: sem_name: avoid a crash on error on the prefix of a selected name.

Fix #413
---
 src/vhdl/sem_names.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index ddf592cf6..d37143a8f 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -2198,6 +2198,10 @@ package body Sem_Names is
                  (+Prefix_Loc, "%n cannot be selected by name", +Prefix);
             end if;
 
+         when Iir_Kind_Error =>
+            --  Let's propagate the error.
+            null;
+
          when others =>
             Error_Kind ("sem_selected_name(2)", Prefix);
       end case;
-- 
cgit v1.2.3