aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2020-04-28 06:05:02 +0200
committerTristan Gingold <tgingold@free.fr>2020-04-28 06:05:02 +0200
commit4de2876f23330b155aac45a223a165c8334f4051 (patch)
treefafda39850c586e5e687ca455b6741fd1920e496
parenta1d41ee57ebf7360b40840070ad490169a35689e (diff)
downloadghdl-4de2876f23330b155aac45a223a165c8334f4051.tar.gz
ghdl-4de2876f23330b155aac45a223a165c8334f4051.tar.bz2
ghdl-4de2876f23330b155aac45a223a165c8334f4051.zip
vhdl-sem_expr: fix crash on incorrect aggregate. Fix #1269
-rw-r--r--src/vhdl/vhdl-sem_expr.adb3
1 files changed, 2 insertions, 1 deletions
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