Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Small uniformization in String

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15970 85f007b7-540e-0410-9357-904b9bb8a0f7
  • Loading branch information...
commit e41da6e5e792cda94f2334ddc9a3140e792d5ef9 1 parent 98f3621
@ppedrot ppedrot authored
View
5 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 =
View
2  lib/cString.mli
@@ -47,7 +47,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
View
2  lib/flags.ml
@@ -104,7 +104,7 @@ let print_hyps_limit () = !print_hyps_limit
module StringOrd =
struct
type t = string
- let compare (x : t) (y : t) = String.compare x y
+ let compare = String.compare
end
module Stringset = Set.Make(StringOrd)
View
2  lib/hashcons.ml
@@ -132,7 +132,7 @@ module Hstring = Make(
type t = string
type u = unit
let hashcons () s =(* incr accesstr;*) s
- let equal (s1 : t) (s2 : t) = s1 = s2
+ external equal : string -> string -> bool = "caml_string_equal" "noalloc"
let hash = Hashtbl.hash
end)
Please sign in to comment.
Something went wrong with that request. Please try again.