mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-03-07 18:37:56 -05:00
fix too strict assertion
This commit is contained in:
parent
eaa76ecb4c
commit
622770808d
1 changed files with 1 additions and 1 deletions
|
|
@ -29,7 +29,7 @@ let[@inline] add_string (self : t) (s : string) : unit =
|
|||
let missing = missing_to_round len in
|
||||
|
||||
(* 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;
|
||||
self.offset <- self.offset + len;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue