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

optim in a bottleneck in Vec

Browse source
This commit is contained in:
Simon Cruanes 2016-07-29 22:50:26 +02:00
parent 5fdffe1f85
commit c70c102de9
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/util/vec.ml
View file

@ -59,9 +59,13 @@ let is_empty t = t.sz = 0
let grow_to t new_capa =
assert (new_capa >= Array.length t.data);
let data = t.data in
let capa = Array.length data in
t.data <- Array.init new_capa (fun i -> if i < capa then data.(i) else t.dummy)
let new_data = Array.make new_capa t.dummy in
assert (t.sz <= new_capa);
let old = t.data in
for i = 0 to t.sz - 1 do
Array.unsafe_set new_data i (Array.unsafe_get old i)
done;
t.data <- new_data
let grow_to_double_size t =
if Array.length t.data = Sys.max_array_length then _size_too_big();