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
|
||||
|
||||
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"]
|
||||
|
|
Loading…
Reference in New Issue