diff options
Diffstat (limited to 'otherlibs/threads/thread.ml')
| -rw-r--r-- | otherlibs/threads/thread.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/otherlibs/threads/thread.ml b/otherlibs/threads/thread.ml index f4bbd8a5a..e3de604d2 100644 --- a/otherlibs/threads/thread.ml +++ b/otherlibs/threads/thread.ml @@ -28,6 +28,11 @@ type resumption_status = Unix.file_descr list * Unix.file_descr list * Unix.file_descr list | Resumed_wait of int * Unix.process_status +(* to avoid warning *) +let _ = [Resumed_wakeup; Resumed_delay; Resumed_join; + Resumed_io; Resumed_select ([], [], []); + Resumed_wait (0, Unix.WEXITED 0)] + (* It is mucho important that the primitives that reschedule are called through an ML function call, not directly. That's because when such a primitive returns, the bytecode interpreter is only semi-obedient: |