diff options
Diffstat (limited to 'src/vhdl')
| -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 |