From 4de2876f23330b155aac45a223a165c8334f4051 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 28 Apr 2020 06:05:02 +0200 Subject: vhdl-sem_expr: fix crash on incorrect aggregate. Fix #1269 --- src/vhdl/vhdl-sem_expr.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/vhdl/vhdl-sem_expr.adb') diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index e9f05f9bc..3dd6cd304 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -3329,7 +3329,8 @@ package body Vhdl.Sem_Expr is (+Get_Associated_Expr (El), "type of element not compatible with the " & "expected type"); - Set_Type (El_Expr, Error_Type); + Set_Type (Expr, Error_Type); + Set_Associated_Expr (El, Expr); Expr := Null_Iir; elsif Is_Overload_List (Res_Type) then Error_Msg_Sem -- cgit v1.2.3