diff options
Diffstat (limited to 'src/synth/netlists-concats.adb')
-rw-r--r-- | src/synth/netlists-concats.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/netlists-concats.adb b/src/synth/netlists-concats.adb index d8df7bbc3..f3e3b8223 100644 --- a/src/synth/netlists-concats.adb +++ b/src/synth/netlists-concats.adb @@ -32,7 +32,7 @@ package body Netlists.Concats is else -- Switch to the dynamic array. C.Len := C.Len + 1; - Net_Tables.Init (C.Darr); + Net_Tables.Init (C.Darr, 2 * Static_Last); Net_Tables.Set_Last (C.Darr, C.Len); C.Darr.Table (C.Sarr'Range) := C.Sarr; C.Darr.Table (C.Len) := N; |