From 74dc25ad9aa89d43b29068e7fb15c4aa5b5e9528 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 17 Jan 2019 06:50:01 +0100
Subject: translation of aggregate: use the target type.  For #737

---
 src/vhdl/translate/trans-chap7.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl/translate')

diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb
index 726aed475..44daf4c4b 100644
--- a/src/vhdl/translate/trans-chap7.adb
+++ b/src/vhdl/translate/trans-chap7.adb
@@ -3490,7 +3490,7 @@ package body Trans.Chap7 is
       Var_Index := Create_Temp_Init
         (Ghdl_Index_Type, New_Lit (Ghdl_Index_0));
       Translate_Array_Aggregate_Gen
-        (Base, Bounds, Aggr, Aggr_Type, 1, Var_Index);
+        (Base, Bounds, Aggr, Target_Type, 1, Var_Index);
       Close_Temp;
 
       --  FIXME: creating aggregate subtype is expensive and rarely used.
-- 
cgit v1.2.3