6
#include "caml/mlvalues.h"
7
#include "caml/alloc.h"
10
static void *thread_main(void *arg) {
15
/* reminder: we return the exit code, and 0 means success */
17
value check(value dummy) {
21
code = pthread_create(&thr, NULL, thread_main, NULL);
22
if (code != 0) return Val_int(1);
24
code = pthread_join(thr, NULL);
25
if (code != 0) return Val_int(1);