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): equal function

Browse source
This commit is contained in:
Simon Cruanes 2022-07-04 16:08:17 -04:00
parent cc55e4cdfb
commit 090945c3f8
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/data/CCBV.ml
View file

@ -196,7 +196,16 @@ let flip bv i =
) )
let clear bv = Bytes.fill bv.b 0 (Bytes.length bv.b) zero let clear bv = Bytes.fill bv.b 0 (Bytes.length bv.b) zero
let equal x y : bool = x.size = y.size && x.b = y.b
let equal_bytes_ size b1 b2 =
try
for i = 0 to bytes_length_of_size size - 1 do
if Bytes.get b1 i <> Bytes.get b2 i then raise_notrace Exit
done;
true
with Exit -> false
let equal x y : bool = x.size = y.size && equal_bytes_ x.size x.b y.b
let iter bv f = let iter bv f =
let len = bytes_length_of_size bv.size in let len = bytes_length_of_size bv.size in