From 066b95d502a24d30c7cec0fc203cae271f488ed0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 29 May 2014 13:47:22 +0200
Subject: Adjust set of whole_assoc flag.

---
 sem_specs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sem_specs.adb b/sem_specs.adb
index 73275f697..ebcb3f38f 100644
--- a/sem_specs.adb
+++ b/sem_specs.adb
@@ -1493,10 +1493,10 @@ package body Sem_Specs is
             end if;
             Assoc := Create_Iir (Iir_Kind_Association_Element_By_Expression);
             Location_Copy (Assoc, Parent);
-            Set_Whole_Association_Flag (Assoc, True);
             Set_Actual (Assoc, Comp_El);
             Found := Found + 1;
          end if;
+         Set_Whole_Association_Flag (Assoc, True);
          Set_Formal (Assoc, Ent_El);
          if Kind = Map_Port
            and then not Error
-- 
cgit v1.2.3