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

bugfixes in BV (off by one...)

Browse source
This commit is contained in:
Simon Cruanes 2013-09-24 17:22:03 +02:00
parent a16a2b5d2c
commit 939e0b96d0
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
BV.ml
View file

@ -105,21 +105,21 @@ let get bv i =
let set bv i =
let n = i / __width in
if n >= Array.length bv.a
then resize bv n;
then resize bv (n+1);
let i = i - n * __width in
bv.a.(n) <- bv.a.(n) lor (1 lsl i)
let reset bv i =
let n = i / __width in
if n >= Array.length bv.a
then resize bv n;
then resize bv (n+1);
let i = i - n * __width in
bv.a.(n) <- bv.a.(n) land (lnot (1 lsl i))
let flip bv i =
let n = i / __width in
if n >= Array.length bv.a
then resize bv n;
then resize bv (n+1);
let i = i - n * __width in
bv.a.(n) <- bv.a.(n) lxor (1 lsl i)