blob: c18e49e4caf4830a262414f7f495cec464904861 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(* TEST
modules = "test_c_thread_register_cstubs.c";
include systhreads;
hassysthreads;
not-bsd;
{
bytecode;
}{
native;
}
*)
(* spins a external thread from C and register it to the OCaml runtime *)
external spawn_thread : (unit -> unit) -> unit = "spawn_thread"
let passed () = Printf.printf "passed\n"
let _ =
spawn_thread (passed);
Thread.delay 0.5
|