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

fix(BV): clear bits properly

Browse source
This commit is contained in:
Simon Cruanes 2022-07-04 22:09:14 -04:00
parent e01b758de8
commit 36eb87db21
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/data/CCBV.ml
View file

@ -161,7 +161,7 @@ let shrink_ bv size =
if size < bv.size then ( if size < bv.size then (
let desired = bytes_length_of_size size in let desired = bytes_length_of_size size in
let current = Bytes.length bv.b in let current = Bytes.length bv.b in
if desired = current then clear_bits_above_ bv size; clear_bits_above_ bv size;
really_resize_ bv ~desired ~current size really_resize_ bv ~desired ~current size
) )