Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Meilleures declarations de string_length et blit_string 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2106 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-10-01 12:33:55 +00:00
parent 1bc1476a68
commit 497f50b8ba
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/threads/pervasives.ml
View File

@ -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

4
stdlib/pervasives.ml
View File

@ -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