Mark the Bytes.equal external as not-allocating C.

master
Pierre-Marie Pédrot 2018-11-21 13:09:42 +01:00
parent 7a53fe1cf9
commit 94175c9f60
1 changed files with 1 additions and 1 deletions

View File

@ -320,7 +320,7 @@ let rcontains_from s i c =
type t = bytes
let compare (x: t) (y: t) = Stdlib.compare x y
external equal : t -> t -> bool = "caml_bytes_equal"
external equal : t -> t -> bool = "caml_bytes_equal" [@@noalloc]
(* Deprecated functions implemented via other deprecated functions *)
[@@@ocaml.warning "-3"]