From 94175c9f60bdea96e7901b8b572b3b882b50ad66 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Pierre-Marie=20P=C3=A9drot?= Date: Wed, 21 Nov 2018 13:09:42 +0100 Subject: [PATCH] Mark the Bytes.equal external as not-allocating C. --- stdlib/bytes.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/stdlib/bytes.ml b/stdlib/bytes.ml index b3cc2f5bf..d89297e75 100644 --- a/stdlib/bytes.ml +++ b/stdlib/bytes.ml @@ -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"]