diff options
| author | Alain Frisch <alain@frisch.fr> | 2012-05-29 11:47:28 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2012-05-29 11:47:28 +0000 |
| commit | a0a14c08fa467bc6a40b268f0dbba9568e241e17 (patch) | |
| tree | 0a248584e83daee65471533c0d5c34252c333527 /otherlibs/threads/thread.ml | |
| parent | 05c973e6ed4be5e2fb28ef97b9659c9677ccbfd1 (diff) | |
Enable and fix more warnings.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12498 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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: |