blob: 216edd460716beba49ce2d0841e7d823a6b9f7b8 (
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
|
diff --git a/bigstring_unix/src/bigstring_unix_stubs.c b/bigstring_unix/src/bigstring_unix_stubs.c
index 604ab1a..a5b806a 100644
--- a/bigstring_unix/src/bigstring_unix_stubs.c
+++ b/bigstring_unix/src/bigstring_unix_stubs.c
@@ -44,6 +44,10 @@
#define bswap_64 bswap64
#endif
+#define CAML_INTERNALS
+#include <caml/io.h>
+#undef CAML_INTERNALS
+
#include "ocaml_utils.h"
#include "unix_utils.h"
#include <caml/socketaddr.h>
@@ -312,9 +316,6 @@ CAMLprim value bigstring_recvfrom_assume_fd_is_nonblocking_stub(value v_sock,
/* I/O of bigstrings from channels */
-#define CAML_INTERNALS
-#include <caml/io.h>
-
CAMLprim value bigstring_input_stub(value v_min_len, value v_chan, value v_pos,
value v_len, value v_bstr) {
CAMLparam2(v_chan, v_bstr);
|