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

small bugfix in CCArray.Sub: bound checking

Browse source
This commit is contained in:
Simon Cruanes 2014-06-15 19:13:42 +02:00
parent 9a9954c420
commit 4d2fa4ea4c
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
core/CCArray.ml
View file

@ -374,9 +374,15 @@ module Sub = struct
let foldi f acc a = _foldi f acc a.arr a.i a.j let foldi f acc a = _foldi f acc a.arr a.i a.j
let get a i = a.arr.(a.i+i) let get a i =
let j = a.i + i in
if i<0 || j>=a.j then invalid_arg "Array.Sub.get";
a.arr.(j)
let set a i x = a.arr.(a.i+i) <- x let set a i x =
let j = a.i + i in
if i<0 || j>=a.j then invalid_arg "Array.Sub.get";
a.arr.(j) <- x
let iter f a = let iter f a =
for k=a.i to a.j-1 do f a.arr.(k) done for k=a.i to a.j-1 do f a.arr.(k) done