diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-08 16:37:20 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-09 06:40:21 +0100 |
| commit | a1e58f050c9681d5d08f5ddfc6844ff3d5819497 (patch) | |
| tree | a81b0e862bcbe71b4efe96b6cd776ae3bd34d2fe | |
| parent | 5820aafb2a15383383a3b6cb124b193065dd5de6 (diff) | |
| download | ghdl-a1e58f050c9681d5d08f5ddfc6844ff3d5819497.tar.gz ghdl-a1e58f050c9681d5d08f5ddfc6844ff3d5819497.tar.bz2 ghdl-a1e58f050c9681d5d08f5ddfc6844ff3d5819497.zip | |
synth-vhdl_aggr: improve support of very large aggregates
| -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); |