diff options
| -rw-r--r-- | src/synth/synth-vhdl_aggr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_aggr.adb b/src/synth/synth-vhdl_aggr.adb index a0d9ed522..8bb3b4b82 100644 --- a/src/synth/synth-vhdl_aggr.adb +++ b/src/synth/synth-vhdl_aggr.adb @@ -448,7 +448,8 @@ package body Synth.Vhdl_Aggr is Res_Typ : Type_Acc; Res : Valtyp; begin - Tab_Res := new Valtyp_Array'(1 .. Nat32 (Flen) => No_Valtyp); + Tab_Res := new Valtyp_Array(1 .. Nat32 (Flen)); + Tab_Res.all := (others => No_Valtyp); Fill_Array_Aggregate (Syn_Inst, Aggr, Tab_Res, Aggr_Typ, 1, Strides, 1, Const_P, Err_P); |