diff options
Diffstat (limited to 'src/vhdl/sem_expr.adb')
| -rw-r--r-- | src/vhdl/sem_expr.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 7dd1303f5..a856be072 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -3339,11 +3339,10 @@ package body Sem_Expr is else -- Dynamic aggregate. declare + -- There is only one choice. + Choice : constant Iir := Assoc_Chain; Expr : Iir; - Choice : Iir; begin - -- There is only one choice. - Choice := Assoc_Chain; case Get_Kind (Choice) is when Iir_Kind_Choice_By_Expression => Expr := Get_Choice_Expression (Choice); |