From c47d4c118d64fdb586485e08cde4b812bd48b899 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 14 Dec 2017 06:53:57 +0100
Subject: Avoid cascaded error on incorrect type.

---
 src/vhdl/sem_types.adb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/sem_types.adb b/src/vhdl/sem_types.adb
index 528a672ed..3ba95ca97 100644
--- a/src/vhdl/sem_types.adb
+++ b/src/vhdl/sem_types.adb
@@ -1951,7 +1951,10 @@ package body Sem_Types is
                            when Iir_Kind_Record_Type_Definition
                              | Iir_Kind_Record_Subtype_Definition =>
                               El_Type :=
-                                Reparse_As_Record_Constraint (El_Type);
+                                Reparse_As_Record_Constraint
+                                (El_Type);
+                           when Iir_Kind_Error =>
+                              null;
                            when others =>
                               Error_Msg_Sem
                                 (+El_Type,
@@ -2245,6 +2248,9 @@ package body Sem_Types is
             Free_Name (Def);
             return Type_Mark;
 
+         when Iir_Kind_Error =>
+            return Type_Mark;
+
          when others =>
             Error_Kind ("sem_subtype_constraint", Type_Mark);
             return Type_Mark;
-- 
cgit v1.2.3