diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index b4218d076..3f4d7890b 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -4778,8 +4778,14 @@ package body Vhdl.Sem_Expr is procedure Check_Read_Aggregate (Aggr : Iir) is + Atype : constant Iir := Get_Type (Aggr); Choice : Iir; begin + if Atype /= Null_Iir and then Is_Error (Atype) then + -- No check in case of error. + return; + end if; + Choice := Get_Association_Choices_Chain (Aggr); while Choice /= Null_Iir loop case Iir_Kinds_Choice (Get_Kind (Choice)) is |