diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-03-20 16:24:03 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-03-20 16:24:03 +0000 |
| commit | d7aeed43974d053a88fd1b8310dcb412933ceff6 (patch) | |
| tree | 8bb478451e17792b693f614fa6a9fe74764095b4 /otherlibs/threads | |
| parent | db8a3fa2c2b4e7201194d745337873aff7de2cad (diff) | |
S'assurer que les threads sont initialisees (PR#1516)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5446 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/threads')
| -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 = |