anil.recoil.org
The unpac monorepo manager self-hosting as a monorepo using unpac
Merge pull request #140 from mirage/fix-no-threads
Use extern instead of caml/threads.h
authored by
GitHub
b7ed2a2b
b21df58a
+15
-5
vendor/opam/digestif/src-c/native/stubs.c
+15
-5
vendor/opam/digestif/src-c/native/stubs.c
···
37
return Val_unit; \
38
}
39
#else
40
-
#include <caml/threads.h>
41
42
#define __define_ba_update(name) \
43
CAMLprim value \
···
48
uint32_t len_ = Long_val (len); \
49
struct name ## _ctx ctx_; \
50
memcpy(&ctx_, Bytes_val(ctx), sizeof(struct name ## _ctx)); \
51
-
caml_release_runtime_system(); \
52
digestif_ ## name ## _update (&ctx_, off_, len_); \
53
-
caml_acquire_runtime_system(); \
54
memcpy(Bytes_val(ctx), &ctx_, sizeof(struct name ## _ctx)); \
55
CAMLreturn (Val_unit); \
56
}
···
64
uint32_t len_ = Long_val (len); \
65
struct sha3_ctx ctx_; \
66
memcpy(&ctx_, Bytes_val(ctx), sizeof(struct sha3_ctx)); \
67
-
caml_release_runtime_system(); \
68
digestif_sha3_update (&ctx_, off_, len_); \
69
-
caml_acquire_runtime_system(); \
70
memcpy(Bytes_val(ctx), &ctx_, sizeof(struct sha3_ctx)); \
71
CAMLreturn (Val_unit); \
72
}
···
37
return Val_unit; \
38
}
39
#else
40
+
/* XXX(dinosaure): even if they are not defined (only defined by
41
+
* [caml/threads.h]), they exists without [threads.cmxa]. For compatibility
42
+
* reason, we keep a protection when we compile for Solo5/ocaml-freestanding
43
+
* but for the rest, these functions should be available in any cases.
44
+
*
45
+
* In some cases (Solo5 or Esperanto), [caml/threads.h] is not available but
46
+
* these functions still exist!
47
+
*/
48
+
49
+
extern void caml_enter_blocking_section (void);
50
+
extern void caml_leave_blocking_section (void);
51
52
#define __define_ba_update(name) \
53
CAMLprim value \
···
58
uint32_t len_ = Long_val (len); \
59
struct name ## _ctx ctx_; \
60
memcpy(&ctx_, Bytes_val(ctx), sizeof(struct name ## _ctx)); \
61
+
caml_enter_blocking_section(); \
62
digestif_ ## name ## _update (&ctx_, off_, len_); \
63
+
caml_leave_blocking_section(); \
64
memcpy(Bytes_val(ctx), &ctx_, sizeof(struct name ## _ctx)); \
65
CAMLreturn (Val_unit); \
66
}
···
74
uint32_t len_ = Long_val (len); \
75
struct sha3_ctx ctx_; \
76
memcpy(&ctx_, Bytes_val(ctx), sizeof(struct sha3_ctx)); \
77
+
caml_enter_blocking_section(); \
78
digestif_sha3_update (&ctx_, off_, len_); \
79
+
caml_leave_blocking_section(); \
80
memcpy(Bytes_val(ctx), &ctx_, sizeof(struct sha3_ctx)); \
81
CAMLreturn (Val_unit); \
82
}