diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-05-27 06:38:30 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-05-27 06:38:30 +0200 |
| commit | 28e0065c7f83380d8f91977c4b3c3ad9ed97e3cc (patch) | |
| tree | 8bfc9d5f6badfc90cabd1aa64438b458c696b091 | |
| parent | 90e4375b766e20da5e8098e0d30d8a96955f974a (diff) | |
| download | ghdl-28e0065c7f83380d8f91977c4b3c3ad9ed97e3cc.tar.gz ghdl-28e0065c7f83380d8f91977c4b3c3ad9ed97e3cc.tar.bz2 ghdl-28e0065c7f83380d8f91977c4b3c3ad9ed97e3cc.zip | |
Individual association: fix crash for array conversion due to slice.
Fix for issue73.
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index e10ef1545..54a3ae39c 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -2741,6 +2741,12 @@ package body Trans.Chap8 is end case; Actual_Type := Get_Type (Act); + -- For individual associations, be sure the type is translated. + -- That's required for slices in case of array conversion. + if Formal /= Base_Formal then + Chap3.Translate_Anonymous_Type_Definition (Formal_Type); + end if; + -- Evaluate the actual. Param_Type := Actual_Type; case Get_Kind (Base_Formal) is |