From fb0e868156e57666b42407e44dfb40a8507478fb Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 18 Nov 2017 08:33:52 +0100 Subject: ghdl_simul: use target bounds for variable assignment of an aggregate. --- src/vhdl/simulate/execution.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src') diff --git a/src/vhdl/simulate/execution.adb b/src/vhdl/simulate/execution.adb index 2ecf13ffb..dc4792490 100644 --- a/src/vhdl/simulate/execution.adb +++ b/src/vhdl/simulate/execution.adb @@ -4610,9 +4610,7 @@ package body Execution is -- an aggregate, then the aggregate may be contrained by the -- target. if Get_Kind (Expr) = Iir_Kind_Aggregate - and then Get_Type_Staticness (Expr_Type) < Locally - and then Get_Kind (Expr_Type) - in Iir_Kinds_Array_Type_Definition + and then Get_Kind (Expr_Type) in Iir_Kinds_Array_Type_Definition then Res := Copy_Array_Bound (Target_Val); Fill_Array_Aggregate (Instance, Expr, Res); -- cgit v1.2.3