From 28e0065c7f83380d8f91977c4b3c3ad9ed97e3cc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 27 May 2016 06:38:30 +0200
Subject: Individual association: fix crash for array conversion due to slice.

Fix for issue73.
---
 src/vhdl/translate/trans-chap8.adb | 6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
cgit v1.2.3