diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-18 08:33:52 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-18 08:33:52 +0100 |
| commit | fb0e868156e57666b42407e44dfb40a8507478fb (patch) | |
| tree | eb2231017e29c832acd0448033ad769d0f22b513 | |
| parent | 625d6b09f4567b876af248cf46a3e118029a84ae (diff) | |
| download | ghdl-fb0e868156e57666b42407e44dfb40a8507478fb.tar.gz ghdl-fb0e868156e57666b42407e44dfb40a8507478fb.tar.bz2 ghdl-fb0e868156e57666b42407e44dfb40a8507478fb.zip | |
ghdl_simul: use target bounds for variable assignment of an aggregate.
| -rw-r--r-- | src/vhdl/simulate/execution.adb | 4 |
1 files changed, 1 insertions, 3 deletions
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); |