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

optimize Vec.{get,set}

Browse source
This commit is contained in:
Simon Cruanes 2016-07-29 23:43:06 +02:00
parent 6f54604dc9
commit 66707b58fc
1 changed files with 2 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

@ -95,14 +95,14 @@ let last t =
let get t i = let get t i =
if i < 0 || i >= t.sz then invalid_arg "vec.get"; if i < 0 || i >= t.sz then invalid_arg "vec.get";
Array.get t.data i Array.unsafe_get t.data i
let set t i v = let set t i v =
if i < 0 || i > t.sz then invalid_arg "vec.set"; if i < 0 || i > t.sz then invalid_arg "vec.set";
if i = t.sz then if i = t.sz then
push t v push t v
else else
Array.set t.data i v Array.unsafe_set t.data i v
let copy t = let copy t =
let data = Array.copy t.data in let data = Array.copy t.data in