diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:47:22 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:47:22 +0200 |
| commit | 066b95d502a24d30c7cec0fc203cae271f488ed0 (patch) | |
| tree | 7374beef8b623e0c3509e9435676a5ba7bb98a6f | |
| parent | edf11f21a272f63aa9a24df18ef624a23122808e (diff) | |
| download | ghdl-066b95d502a24d30c7cec0fc203cae271f488ed0.tar.gz ghdl-066b95d502a24d30c7cec0fc203cae271f488ed0.tar.bz2 ghdl-066b95d502a24d30c7cec0fc203cae271f488ed0.zip | |
Adjust set of whole_assoc flag.
| -rw-r--r-- | sem_specs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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 |