File tree Expand file tree Collapse file tree 4 files changed +3
-5
lines changed Expand file tree Collapse file tree 4 files changed +3
-5
lines changed Original file line number Diff line number Diff line change @@ -56,8 +56,6 @@ let rec no_side_effects (lam : Lam.t) : bool =
56
56
(* non-observable side effect *)
57
57
| " caml_sys_get_config"
58
58
| " caml_sys_get_argv" (* should be fine *)
59
-
60
- | " caml_create_string" (* TODO: add more *)
61
59
| " caml_make_vect"
62
60
| " caml_create_bytes"
63
61
| " caml_obj_dup"
Original file line number Diff line number Diff line change 24
24
external length : string -> int = " %string_length"
25
25
external get : string -> int -> char = " %string_safe_get"
26
26
external set : bytes -> int -> char -> unit = " %bytes_safe_set"
27
- external create : int -> bytes = " caml_create_string "
27
+ external create : int -> bytes = " caml_create_bytes "
28
28
external unsafe_get : string -> int -> char = " %string_unsafe_get"
29
29
external unsafe_set : bytes -> int -> char -> unit = " %bytes_unsafe_set"
30
30
external unsafe_blit : string -> int -> bytes -> int -> int -> unit
Original file line number Diff line number Diff line change @@ -68,7 +68,7 @@ external set : bytes -> int -> char -> unit = "%bytes_safe_set"
68
68
69
69
@deprecated This is a deprecated alias of {!Bytes.set}.[ ] *)
70
70
71
- external create : int -> bytes = " caml_create_string "
71
+ external create : int -> bytes = " caml_create_bytes "
72
72
[@@ ocaml.deprecated "Use Bytes.create instead." ]
73
73
(* * [String.create n] returns a fresh byte sequence of length [n].
74
74
The sequence is uninitialized and contains arbitrary bytes.
Original file line number Diff line number Diff line change @@ -34,7 +34,7 @@ external set : bytes -> int -> char -> unit = "%bytes_safe_set"
34
34
35
35
@deprecated This is a deprecated alias of {!BytesLabels.set}. *)
36
36
37
- external create : int -> bytes = " caml_create_string "
37
+ external create : int -> bytes = " caml_create_bytes "
38
38
[@@ ocaml.deprecated "Use BytesLabels.create instead." ]
39
39
(* * [String.create n] returns a fresh byte sequence of length [n].
40
40
The sequence is uninitialized and contains arbitrary bytes.
You can’t perform that action at this time.
0 commit comments