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(-)
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