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

change primitive names back to %string_safe_set

master
Hongbo Zhang 2016-08-19 10:02:45 -04:00 committed by David Allsopp
parent dba0e49351
commit 026248378b
7 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
otherlibs/threads/pervasives.ml
View File

@ -495,7 +495,7 @@ let really_input_string ic len =
really_input ic s 0 len;
bytes_unsafe_to_string s
external bytes_set : bytes -> int -> char -> unit = "%bytes_safe_set"
external bytes_set : bytes -> int -> char -> unit = "%string_safe_set"
let input_line ic =
let buf = ref (bytes_create 128) in

2
stdlib/bytes.ml
View File

@ -24,7 +24,7 @@
external length : bytes -> int = "%bytes_length"
external string_length : string -> int = "%string_length"
external get : bytes -> int -> char = "%bytes_safe_get"
external set : bytes -> int -> char -> unit = "%bytes_safe_set"
external set : bytes -> int -> char -> unit = "%string_safe_set"
external create : int -> bytes = "caml_create_bytes"
external unsafe_get : bytes -> int -> char = "%bytes_unsafe_get"
external unsafe_set : bytes -> int -> char -> unit = "%bytes_unsafe_set"

2
stdlib/bytes.mli
View File

@ -50,7 +50,7 @@ external get : bytes -> int -> char = "%bytes_safe_get"
Raise [Invalid_argument] if [n] not a valid index in [s]. *)
external set : bytes -> int -> char -> unit = "%bytes_safe_set"
external set : bytes -> int -> char -> unit = "%string_safe_set"
(** [set s n c] modifies [s] in place, replacing the byte at index [n]
with [c].

2
stdlib/bytesLabels.mli
View File

@ -26,7 +26,7 @@ external get : bytes -> int -> char = "%bytes_safe_get"
Raise [Invalid_argument] if [n] not a valid index in [s]. *)
external set : bytes -> int -> char -> unit = "%bytes_safe_set"
external set : bytes -> int -> char -> unit = "%string_safe_set"
(** [set s n c] modifies [s] in place, replacing the byte at index [n]
with [c].

2
stdlib/string.ml
View File

@ -23,7 +23,7 @@
external length : string -> int = "%string_length"
external get : string -> int -> char = "%string_safe_get"
external set : bytes -> int -> char -> unit = "%bytes_safe_set"
external set : bytes -> int -> char -> unit = "%string_safe_set"
external create : int -> bytes = "caml_create_bytes"
external unsafe_get : string -> int -> char = "%string_unsafe_get"
external unsafe_set : bytes -> int -> char -> unit = "%bytes_unsafe_set"

2
stdlib/string.mli
View File

@ -58,7 +58,7 @@ external get : string -> int -> char = "%string_safe_get"
Raise [Invalid_argument] if [n] not a valid index in [s]. *)
external set : bytes -> int -> char -> unit = "%bytes_safe_set"
external set : bytes -> int -> char -> unit = "%string_safe_set"
[@@ocaml.deprecated "Use Bytes.set instead."]
(** [String.set s n c] modifies byte sequence [s] in place,
replacing the byte at index [n] with [c].

2
stdlib/stringLabels.mli
View File

@ -24,7 +24,7 @@ external get : string -> int -> char = "%string_safe_get"
Raise [Invalid_argument] if [n] not a valid index in [s]. *)
external set : bytes -> int -> char -> unit = "%bytes_safe_set"
external set : bytes -> int -> char -> unit = "%string_safe_set"
[@@ocaml.deprecated "Use BytesLabels.set instead."]
(** [String.set s n c] modifies byte sequence [s] in place,
replacing the byte at index [n] with [c].