diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-03-21 06:22:42 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-03-21 06:22:42 +0100 |
| commit | 047de40c7799e4186b16bd1ad2c6eb17a7cf0098 (patch) | |
| tree | 8c2e267979ed2db60dcea017275fe76a211108f5 /src/vhdl/sem_names.adb | |
| parent | 628582294c3695f271c738d1459d57b239e04487 (diff) | |
| download | ghdl-047de40c7799e4186b16bd1ad2c6eb17a7cf0098.tar.gz ghdl-047de40c7799e4186b16bd1ad2c6eb17a7cf0098.tar.bz2 ghdl-047de40c7799e4186b16bd1ad2c6eb17a7cf0098.zip | |
Improve handling of cascaded error.
Fir #543
Diffstat (limited to 'src/vhdl/sem_names.adb')
| -rw-r--r-- | src/vhdl/sem_names.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 6ec51ed3a..bdf1235b9 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -2419,7 +2419,7 @@ package body Sem_Names is end if; if Get_Kind (Base_Type) /= Iir_Kind_Array_Type_Definition then - if Finish then + if Finish and then not Is_Error (Base_Type) then Error_Msg_Sem (+Name, "type of prefix is not an array"); end if; return Null_Iir; |