diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-28 06:05:02 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-28 06:05:02 +0200 |
| commit | 4de2876f23330b155aac45a223a165c8334f4051 (patch) | |
| tree | fafda39850c586e5e687ca455b6741fd1920e496 | |
| parent | a1d41ee57ebf7360b40840070ad490169a35689e (diff) | |
| download | ghdl-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.adb | 3 |
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 |