diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2005-04-17 08:23:51 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2005-04-17 08:23:51 +0000 |
| commit | bc037fc29f49351520ac932b5f5089efba2b9e9c (patch) | |
| tree | 7c39634ed2ab4c0e0090349429b1782190509f06 /otherlibs/unix/wait.c | |
| parent | 1a1693484192cfad2ed2622ab1166da953bf2225 (diff) | |
Normalisation des numeros de signaux renvoyes par Unix.wait* (PR#3584)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6845 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix/wait.c')
| -rw-r--r-- | otherlibs/unix/wait.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/unix/wait.c b/otherlibs/unix/wait.c index 5d74b8380..486d06af7 100644 --- a/otherlibs/unix/wait.c +++ b/otherlibs/unix/wait.c @@ -47,11 +47,11 @@ static value alloc_process_status(int pid, int status) } else if (WIFSTOPPED(status)) { st = alloc_small(1, TAG_WSTOPPED); - Field(st, 0) = Val_int(WSTOPSIG(status)); + Field(st, 0) = Val_int(caml_rev_convert_signal_number(WSTOPSIG(status))); } else { st = alloc_small(1, TAG_WSIGNALED); - Field(st, 0) = Val_int(WTERMSIG(status)); + Field(st, 0) = Val_int(caml_rev_convert_signal_number(WTERMSIG(status))); } Begin_root (st); res = alloc_small(2, 0); |