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

chore(CCBV): clean comments

Browse source
This commit is contained in:
Fardale 2021-05-22 22:09:24 +02:00
parent 8f65bf639b
commit 8ff253f18d
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/data/CCBV.ml
View file

@ -1,9 +1,6 @@
(** {2 Imperative Bitvectors} *) (** {2 Imperative Bitvectors} *)
(* TODO: move to [bytes] and replace all [mod] and [/] with bitshifts
because width_=8 *)
(*$inject (*$inject
let ppli = CCFormat.(Dump.list int) let ppli = CCFormat.(Dump.list int)
*) *)
@ -154,7 +151,7 @@ let resize bv size =
let is_empty bv = let is_empty bv =
try try
for i = 0 to Bytes.length bv.b - 1 do for i = 0 to Bytes.length bv.b - 1 do
if get_ bv.b i <> 0 then raise Exit (* MSB of last element are all 0 *) if get_ bv.b i <> 0 then raise Exit
done; done;
true true
with Exit -> with Exit ->