simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix too strict assertion

Browse source
This commit is contained in:
Simon Cruanes 2023-12-27 17:34:13 -05:00
parent eaa76ecb4c
commit 622770808d
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/fuchsia/write/buf.ml
View file

@ -29,7 +29,7 @@ let[@inline] add_string (self : t) (s : string) : unit =
let missing = missing_to_round len in let missing = missing_to_round len in
(* bound check *) (* bound check *)
assert (len + missing + self.offset < Bytes.length self.buf); assert (len + missing + self.offset <= Bytes.length self.buf);
Bytes.unsafe_blit_string s 0 self.buf self.offset len; Bytes.unsafe_blit_string s 0 self.buf self.offset len;
self.offset <- self.offset + len; self.offset <- self.offset + len;