diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-01-17 06:50:01 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-01-17 06:50:01 +0100 |
commit | 74dc25ad9aa89d43b29068e7fb15c4aa5b5e9528 (patch) | |
tree | c3d3ab18d1e8d0991029fb9c1b16d7a74dc13256 /src/vhdl | |
parent | fd92bd29c1f66db122a3de5dc31d3147ae4fe652 (diff) | |
download | ghdl-74dc25ad9aa89d43b29068e7fb15c4aa5b5e9528.tar.gz ghdl-74dc25ad9aa89d43b29068e7fb15c4aa5b5e9528.tar.bz2 ghdl-74dc25ad9aa89d43b29068e7fb15c4aa5b5e9528.zip |
translation of aggregate: use the target type. For #737
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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. |