mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Yet another attempt at a proper initialization of main_thread_sigmask.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-03-23 23:45:00 +01:00
parent e27f32275e
commit e90ff5a6c7
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/unixint.d
View file

@ -1286,7 +1286,6 @@ install_asynchronous_signal_handlers()
#endif
#ifdef HAVE_SIGPROCMASK
sigset_t *sigmask = cl_core.default_sigmask = &main_thread_sigmask;
ecl_process_env()->default_sigmask = &main_thread_sigmask;
cl_core.default_sigmask_bytes = sizeof(sigset_t);
# ifdef ECL_THREADS
pthread_sigmask(SIG_SETMASK, NULL, sigmask);
@ -1332,6 +1331,7 @@ static void
install_signal_handling_thread()
{
#if defined(ECL_THREADS) && defined(HAVE_SIGPROCMASK)
ecl_process_env()->default_sigmask = &main_thread_sigmask;
if (ecl_option_values[ECL_OPT_SIGNAL_HANDLING_THREAD]) {
cl_object fun =
ecl_make_cfun((cl_objectfn_fixed)
@ -1399,8 +1399,8 @@ install_synchronous_signal_handlers()
}
mysignal(signal, process_interrupt_handler);
#ifdef HAVE_SIGPROCMASK
sigdelset((sigset_t *)ecl_process_env()->default_sigmask, signal);
pthread_sigmask(SIG_SETMASK, ecl_process_env()->default_sigmask, NULL);
sigdelset(&main_thread_sigmask, signal);
pthread_sigmask(SIG_SETMASK, &main_thread_sigmask, NULL);
#endif
}
#endif