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 /byterun/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 'byterun/signals.c')
| -rw-r--r-- | byterun/signals.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/byterun/signals.c b/byterun/signals.c index 0b5e50bfc..b64701ac3 100644 --- a/byterun/signals.c +++ b/byterun/signals.c @@ -59,7 +59,7 @@ void caml_process_event(void) if (async_action != NULL) (*async_action)(); } -static int rev_convert_signal_number(int signo); +CAMLexport int caml_rev_convert_signal_number(int signo); void caml_execute_signal(int signal_number, int in_signal_handler) { @@ -72,8 +72,9 @@ void caml_execute_signal(int signal_number, int in_signal_handler) sigaddset(&sigs, signal_number); sigprocmask(SIG_BLOCK, &sigs, &sigs); #endif - 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))); #ifdef POSIX_SIGNALS if (! in_signal_handler) { /* Restore the original signal mask */ @@ -228,7 +229,7 @@ CAMLexport int caml_convert_signal_number(int signo) return signo; } -static int rev_convert_signal_number(int signo) +CAMLexport int caml_rev_convert_signal_number(int signo) { int i; for (i = 0; i < sizeof(posix_signals) / sizeof(int); i++) |