Mark the Bytes.equal external as not-allocating C.
parent
7a53fe1cf9
commit
94175c9f60
|
@ -320,7 +320,7 @@ let rcontains_from s i c =
|
||||||
type t = bytes
|
type t = bytes
|
||||||
|
|
||||||
let compare (x: t) (y: t) = Stdlib.compare x y
|
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 *)
|
(* Deprecated functions implemented via other deprecated functions *)
|
||||||
[@@@ocaml.warning "-3"]
|
[@@@ocaml.warning "-3"]
|
||||||
|
|
Loading…
Reference in New Issue