Small uniformization in String

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15970 85f007b7-540e-0410-9357-904b9bb8a0f7

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 =