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

force Vector's initial size to be >= 3

Browse source
This commit is contained in:
Simon Cruanes 2013-03-17 18:45:53 +01:00
parent 3b6722d1c4
commit 7360834241
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
vector.ml
View file

@ -32,9 +32,9 @@ type 'a t = {
}
let create i =
assert (i >= 0);
let i = max i 3 in
{ size = 0;
vec = if i = 0 then [||] else Array.create i (Obj.magic None);
vec = Array.create i (Obj.magic None);
}
(** resize the underlying array so that it can contains the