simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-08 20:25:31 -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

4
src/util/vec.ml
View file

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