simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

perf(vector): less aggressive growth for internal resizing

Browse source
This commit is contained in:
Simon Cruanes 2022-02-03 18:50:32 -05:00
parent 2d30b2ae14
commit f540a6d7e5
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/core/CCVector.ml
View file

@ -79,9 +79,13 @@ let init n f = {
}
(* is the underlying array empty? *)
let array_is_empty_ v =
let[@inline] array_is_empty_ v =
Array.length v.vec = 0
(* next capacity, if current one is [n] *)
let[@inline] next_grow_ n =
min Sys.max_array_length (n + n lsl 1 + 5)
(* resize the underlying array using x to temporarily fill the array *)
let resize_ v newcapacity x =
assert (newcapacity >= v.size);
@ -128,7 +132,7 @@ let grow_with_ v ~filler:x =
fill_with_junk_ v.vec 0 len;
) else (
let n = Array.length v.vec in
let size = min (2 * n + 3) Sys.max_array_length in
let size = next_grow_ n in
if size = n then invalid_arg "vec: can't grow any further";
resize_ v size v.vec.(0)
)
@ -143,8 +147,8 @@ let ensure_assuming_not_empty_ v ~size =
) else if size < Array.length v.vec then (
() (* nothing to do *)
) else (
let n = ref (max 8 (Array.length v.vec)) in
while !n < size do n := min Sys.max_array_length (2* !n) done;
let n = ref (Array.length v.vec) in
while !n < size do n := next_grow_ !n done;
resize_ v !n v.vec.(0)
)