diff options
| -rw-r--r-- | src/vhdl/sem_types.adb | 8 |
1 files changed, 7 insertions, 1 deletions
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; |