diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-29 06:20:05 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-29 06:20:05 +0100 |
| commit | 99605e5b867572c25ad375b79c8c822ea82a18ed (patch) | |
| tree | 34b42968a5e982046511c266ae78b1f824c4f7dc /src/vhdl | |
| parent | cdec4a400cd14775cc06acf43787cb95c792f258 (diff) | |
| download | ghdl-99605e5b867572c25ad375b79c8c822ea82a18ed.tar.gz ghdl-99605e5b867572c25ad375b79c8c822ea82a18ed.tar.bz2 ghdl-99605e5b867572c25ad375b79c8c822ea82a18ed.zip | |
Avoid a crash in case of error.
Fix #472
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 5ae8653c3..56ea69f66 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -4487,7 +4487,7 @@ package body Sem_Expr is Expr_Type := Get_Type (Expr); pragma Assert (Expr_Type /= Null_Iir); Result_Type := Compatible_Types_Intersect (Atype, Expr_Type); - if Is_Overload_List (Atype) then + if Atype /= Null_Iir and then Is_Overload_List (Atype) then Free_Overload_List (Atype); end if; if Result_Type /= Null_Iir then |