mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

When returning from a signal handler, ECL left a sigmask in which all signals were allowed. Now we just restore the default sigmask.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-10-07 15:39:23 +02:00
parent ffe8e14d18
commit a66d58d6b5
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/c/unixint.d
View file

@ -220,9 +220,9 @@ mysignal(int code, void (*handler)(int, siginfo_t *, void*))
# endif
#else
new_action.sa_handler = handler;
sigfillset(&new_action.sa_mask);
new_action.sa_flags = 0;
#endif
sigfillset(&new_action.sa_mask);
sigaction(code, &new_action, &old_action);
}
#else /* HAVE_SIGPROCMASK */
@ -357,16 +357,14 @@ handler_fn_protype(lisp_signal_handler, int sig, siginfo_t *info, void *aux)
static void
unblock_signal(int signal)
{
struct sigaction oact;
sigset_t block_mask;
sigaction(signal, NULL, &oact);
block_mask = oact.sa_mask;
sigaddset(&block_mask, signal);
sigdelset(&block_mask, cl_core.default_sigmask);
/*
* We do not really "unblock" the signal, but rather restore
* ECL's default sigmask.
*/
# ifdef ECL_THREADS
pthread_sigmask(SIG_UNBLOCK, &block_mask, NULL);
pthread_sigmask(SIG_SETMASK, cl_core.default_sigmask, NULL);
# else
sigprocmask(SIG_UNBLOCK, &block_mask, NULL);
sigprocmask(SIG_SETMASK, cl_core.default_sigmaks, NULL);
# endif
}
#endif