From 198e5da752e36bf1b11d09b7f2c134783725a0b5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 30 Jul 2016 18:59:41 +0200
Subject: sem_expr: minor rework.

---
 src/vhdl/sem_expr.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/vhdl')

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);
-- 
cgit v1.2.3