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 /asmrun/signals.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 'asmrun/signals.c')
| -rw-r--r-- | asmrun/signals.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/asmrun/signals.c b/asmrun/signals.c index 6f3c607ae..3f7c4f1d1 100644 --- a/asmrun/signals.c +++ b/asmrun/signals.c @@ -53,7 +53,7 @@ value caml_signal_handlers = 0; void (*caml_enter_blocking_section_hook)() = NULL; void (*caml_leave_blocking_section_hook)() = NULL; -static int rev_convert_signal_number(int signo); +int caml_rev_convert_signal_number(int signo); /* Execute a signal handler immediately. */ @@ -66,8 +66,9 @@ void caml_execute_signal(int signal_number, int in_signal_handler) sigemptyset(&sigs); sigaddset(&sigs, signal_number); sigprocmask(SIG_BLOCK, &sigs, &sigs); - res = caml_callback_exn(Field(caml_signal_handlers, signal_number), - Val_int(rev_convert_signal_number(signal_number))); + res = caml_callback_exn( + Field(caml_signal_handlers, signal_number), + Val_int(caml_rev_convert_signal_number(signal_number))); if (! in_signal_handler) { /* Restore the original signal mask */ sigprocmask(SIG_SETMASK, &sigs, NULL); @@ -247,7 +248,7 @@ int caml_convert_signal_number(int signo) return signo; } -static int rev_convert_signal_number(int signo) +int caml_rev_convert_signal_number(int signo) { int i; for (i = 0; i < sizeof(posix_signals) / sizeof(int); i++) |