From e41da6e5e792cda94f2334ddc9a3140e792d5ef9 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 13 Nov 2012 23:00:11 +0000
Subject: Small uniformization in String

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15970 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/cString.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib/cString.ml')

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 =
-- 
cgit v1.2.3