summaryrefslogtreecommitdiff
path: root/sem_specs.adb
diff options
context:
space:
mode:
Diffstat (limited to 'sem_specs.adb')
-rw-r--r--sem_specs.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_specs.adb b/sem_specs.adb
index 73275f6..ebcb3f3 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