diff options
| -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 |