blob: 5c7b1c3cee497d62465388ecc7cf40dc6138a477 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
Drop old compatibility code which causes a syntax error (sometimes?)
https://bugs.gentoo.org/748549
--- a/src/endianBytes.cppo.ml
+++ b/src/endianBytes.cppo.ml
@@ -89,26 +89,6 @@ let unsafe_set_char (s:Bytes.t) off v =
#include "common.ml"
-#if OCAML_VERSION < (4, 07, 0)
-
-external unsafe_get_16 : Bytes.t -> int -> int = "%caml_string_get16u"
-external unsafe_get_32 : Bytes.t -> int -> int32 = "%caml_string_get32u"
-external unsafe_get_64 : Bytes.t -> int -> int64 = "%caml_string_get64u"
-
-external unsafe_set_16 : Bytes.t -> int -> int -> unit = "%caml_string_set16u"
-external unsafe_set_32 : Bytes.t -> int -> int32 -> unit = "%caml_string_set32u"
-external unsafe_set_64 : Bytes.t -> int -> int64 -> unit = "%caml_string_set64u"
-
-external get_16 : Bytes.t -> int -> int = "%caml_string_get16"
-external get_32 : Bytes.t -> int -> int32 = "%caml_string_get32"
-external get_64 : Bytes.t -> int -> int64 = "%caml_string_get64"
-
-external set_16 : Bytes.t -> int -> int -> unit = "%caml_string_set16"
-external set_32 : Bytes.t -> int -> int32 -> unit = "%caml_string_set32"
-external set_64 : Bytes.t -> int -> int64 -> unit = "%caml_string_set64"
-
-#else
-
external unsafe_get_16 : Bytes.t -> int -> int = "%caml_bytes_get16u"
external unsafe_get_32 : Bytes.t -> int -> int32 = "%caml_bytes_get32u"
external unsafe_get_64 : Bytes.t -> int -> int64 = "%caml_bytes_get64u"
@@ -125,6 +105,4 @@ external set_16 : Bytes.t -> int -> int -> unit = "%caml_bytes_set16"
external set_32 : Bytes.t -> int -> int32 -> unit = "%caml_bytes_set32"
external set_64 : Bytes.t -> int -> int64 -> unit = "%caml_bytes_set64"
-#endif
-
#include "common_401.ml"
--- a/src/endianString.cppo.ml
+++ b/src/endianString.cppo.ml
@@ -93,18 +93,6 @@ external get_16 : string -> int -> int = "%caml_string_get16"
external get_32 : string -> int -> int32 = "%caml_string_get32"
external get_64 : string -> int -> int64 = "%caml_string_get64"
-#if OCAML_VERSION < (4, 07, 0)
-
-external unsafe_set_16 : Bytes.t -> int -> int -> unit = "%caml_string_set16u"
-external unsafe_set_32 : Bytes.t -> int -> int32 -> unit = "%caml_string_set32u"
-external unsafe_set_64 : Bytes.t -> int -> int64 -> unit = "%caml_string_set64u"
-
-external set_16 : Bytes.t -> int -> int -> unit = "%caml_string_set16"
-external set_32 : Bytes.t -> int -> int32 -> unit = "%caml_string_set32"
-external set_64 : Bytes.t -> int -> int64 -> unit = "%caml_string_set64"
-
-#else
-
external unsafe_set_16 : Bytes.t -> int -> int -> unit = "%caml_bytes_set16u"
external unsafe_set_32 : Bytes.t -> int -> int32 -> unit = "%caml_bytes_set32u"
external unsafe_set_64 : Bytes.t -> int -> int64 -> unit = "%caml_bytes_set64u"
@@ -113,6 +101,4 @@ external set_16 : Bytes.t -> int -> int -> unit = "%caml_bytes_set16"
external set_32 : Bytes.t -> int -> int32 -> unit = "%caml_bytes_set32"
external set_64 : Bytes.t -> int -> int64 -> unit = "%caml_bytes_set64"
-#endif
-
#include "common_401.ml"
|
GitWeb
