diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1998-10-01 12:33:55 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1998-10-01 12:33:55 +0000 |
| commit | 497f50b8bab07e5efee4df344511151ac05c2083 (patch) | |
| tree | 36b8bbe9a45895a6ec815f529ea6bd73ee2fbd20 /stdlib | |
| parent | 1bc1476a685703c6d56776cedd5aded37571994b (diff) | |
Meilleures declarations de string_length et blit_string
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2106 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/pervasives.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |