aboutsummaryrefslogtreecommitdiff
path: root/lib/cString.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/cString.ml')
-rw-r--r--lib/cString.ml5
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/cString.ml b/lib/cString.ml
index 6bc7c47295..b54c23c5b2 100644
--- a/lib/cString.ml
+++ b/lib/cString.ml
@@ -45,7 +45,7 @@ end
module type ExtS =
sig
include S
- external equal : string -> string -> bool = "caml_string_equal"
+ external equal : string -> string -> bool = "caml_string_equal" "noalloc"
val explode : string -> string list
val implode : string list -> string
val strip : string -> string
@@ -60,8 +60,7 @@ end
include String
-external equal : string -> string -> bool = "caml_string_equal"
-
+external equal : string -> string -> bool = "caml_string_equal" "noalloc"
let explode s =
let rec explode_rec n =