diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-05 17:09:57 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-05 17:09:57 +0100 |
| commit | 6db77714c4d66adfb58872d05c8e3aaef55c7e00 (patch) | |
| tree | cdf847208b82a3f4e8143f9931063a24aff885db /sem_assocs.adb | |
| parent | 6ab63305d08ac83573aeb65bfd4dd266b8ad9aed (diff) | |
| download | ghdl-6db77714c4d66adfb58872d05c8e3aaef55c7e00.tar.gz ghdl-6db77714c4d66adfb58872d05c8e3aaef55c7e00.tar.bz2 ghdl-6db77714c4d66adfb58872d05c8e3aaef55c7e00.zip | |
Fix bug17759: individual associated to an element of array of array.
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index 87081f4cf..c4a9bce74 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -489,6 +489,7 @@ package body Sem_Assocs is Sub := Create_Iir (Iir_Kind_Association_Element_By_Individual); Location_Copy (Sub, Formal); Set_Formal (Sub, Iassoc); + Set_Associated (Iassoc, Sub); Iassoc := Sub; else case Get_Kind (Sub) is |