simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-08 12:15:48 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

avoid allocating at every call to grow_to_at_least

Browse source
This commit is contained in:
Simon Cruanes 2016-11-30 16:08:03 +01:00
parent 2e7e947b62
commit 30832099b3
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/util/vec.ml
View file

@ -73,11 +73,13 @@ let grow_to_at_least t new_capa =
assert (new_capa >= 0);
if new_capa > Sys.max_array_length then _size_too_big ();
let data = t.data in
let capa = ref (Array.length data + 1) in
let capa = ref (max (Array.length data) 1) in
while !capa < new_capa do
capa := min (2 * !capa + 1) Sys.max_array_length;
done;
grow_to_exact t !capa
if !capa > Array.length data then (
grow_to_exact t !capa
)
let is_full t = Array.length t.data = t.sz