diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-11-08 18:22:58 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-11-08 18:42:50 +0100 |
| commit | 6f76368d49f445299691cb9013e03216188fc34c (patch) | |
| tree | b52ef5b6572b4257dca24a8052511d2c6cfa5240 | |
| parent | 33b400ad884ee8f9a9c01c3d47968eea7dcd3db2 (diff) | |
| download | ghdl-6f76368d49f445299691cb9013e03216188fc34c.tar.gz ghdl-6f76368d49f445299691cb9013e03216188fc34c.tar.bz2 ghdl-6f76368d49f445299691cb9013e03216188fc34c.zip | |
vhdl-sem_expr: fix a crash after error. Fix #2239
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 5b5010319..1b52000b5 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -1675,6 +1675,8 @@ package body Vhdl.Sem_Expr is end if; if Get_Kind (Formal) = Iir_Kind_Interface_Signal_Declaration and then Get_Mode (Formal) in Iir_Out_Modes + and then + Get_Kind (Param) = Iir_Kind_Association_Element_By_Expression then Prefix := Name_To_Object (Get_Actual (Param)); if Prefix /= Null_Iir then |