diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-26 21:02:43 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-26 21:02:43 +0100 |
commit | b6becbb030c2e3d105818380b5f0f19af0e4b413 (patch) | |
tree | 6fec9ce4bf1bd729dafb629ee4cb85244dd20b8e | |
parent | 0c9ea545925f0e027d25a6ba1c457ae34df9d100 (diff) | |
download | ghdl-b6becbb030c2e3d105818380b5f0f19af0e4b413.tar.gz ghdl-b6becbb030c2e3d105818380b5f0f19af0e4b413.tar.bz2 ghdl-b6becbb030c2e3d105818380b5f0f19af0e4b413.zip |
sem_expr: fix regression when replace a choice by expression by a choice by range.
Fix #707
-rw-r--r-- | src/vhdl/sem_expr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 51d74796c..23507b954 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -2771,6 +2771,7 @@ package body Sem_Expr is Set_Same_Alternative_Flag (N_Choice, Get_Same_Alternative_Flag (El)); Set_Choice_Range (N_Choice, Eval_Range_If_Static (Name1)); Set_Choice_Staticness (N_Choice, Get_Type_Staticness (Range_Type)); + Set_Element_Type_Flag (N_Choice, Get_Element_Type_Flag (El)); Free_Iir (El); if Prev_El = Null_Iir then |