diff options
| -rw-r--r-- | otherlibs/threads/unix.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/otherlibs/threads/unix.ml b/otherlibs/threads/unix.ml index ea8a44c8f..a8f2a06ae 100644 --- a/otherlibs/threads/unix.ml +++ b/otherlibs/threads/unix.ml @@ -36,6 +36,7 @@ type resumption_status = | Resumed_select of file_descr list * file_descr list * file_descr list | Resumed_wait of int * process_status +external thread_initialize : unit -> unit = "thread_initialize" external thread_wait_read : file_descr -> unit = "thread_wait_read" external thread_wait_write : file_descr -> unit = "thread_wait_write" external thread_select : @@ -51,6 +52,10 @@ let select_aux arg = thread_select arg let wait_pid_aux pid = thread_wait_pid pid let delay duration = thread_delay duration +(* Make sure that threads are initialized (PR#1516). *) + +let _ = thread_initialize() + (* Back to the Unix module *) type error = |