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

CCVector: fix two labels-omitted warnings

Browse source 
These warnings are silenced by the use of -nolabels in the compilation
flags (which I understand is designed to make the life of the
CC*Labels file easier, not let minor labeling mistakes sleep in.)
This commit is contained in:
Gabriel Scherer 2024-01-04 21:39:09 +01:00
parent 60bb2c8c68
commit 5e767d8aa8
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/core/CCVector.ml
View file

@ -131,7 +131,7 @@ let resize_with v f size =
v.vec <- new_vec;
v.size <- size
) else (
ensure_assuming_not_empty_ v size;
ensure_assuming_not_empty_ v ~size;
let { size = cur_size; vec } = v in
for i = cur_size to size - 1 do
Array.unsafe_set vec i (f i)
@ -147,7 +147,7 @@ let resize_with_init v ~init size =
v.vec <- vec;
v.size <- size
) else (
ensure_assuming_not_empty_ v size;
ensure_assuming_not_empty_ v ~size;
(* nothing will change [v] *)
for i = v.size to size - 1 do
Array.unsafe_set v.vec i init