diff options
| -rw-r--r-- | otherlibs/threads/pervasives.ml | 4 | ||||
| -rw-r--r-- | stdlib/pervasives.ml | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/threads/pervasives.ml b/otherlibs/threads/pervasives.ml index bd6b610e9..f606c3657 100644 --- a/otherlibs/threads/pervasives.ml +++ b/otherlibs/threads/pervasives.ml @@ -111,10 +111,10 @@ external truncate : float -> int = "%intoffloat" (* String operations -- more in module String *) -external string_length : string -> int = "ml_string_length" +external string_length : string -> int = "%string_length" external string_create: int -> string = "create_string" external string_blit : string -> int -> string -> int -> int -> unit - = "blit_string" + = "blit_string" "noalloc" let (^) s1 s2 = let l1 = string_length s1 and l2 = string_length s2 in diff --git a/stdlib/pervasives.ml b/stdlib/pervasives.ml index 73ff3e4b9..11c590ebc 100644 --- a/stdlib/pervasives.ml +++ b/stdlib/pervasives.ml @@ -107,10 +107,10 @@ external truncate : float -> int = "%intoffloat" (* String operations -- more in module String *) -external string_length : string -> int = "ml_string_length" +external string_length : string -> int = "%string_length" external string_create: int -> string = "create_string" external string_blit : string -> int -> string -> int -> int -> unit - = "blit_string" + = "blit_string" "noalloc" let (^) s1 s2 = let l1 = string_length s1 and l2 = string_length s2 in |