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

Totally block signals until a thread is completely set up.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-08 00:24:36 +02:00
parent 8810352ceb
commit cd02c2a0f4
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/threads/process.d
View file

@ -243,10 +243,8 @@ thread_entry_point(void *arg)
CL_CATCH_ALL_BEGIN(env) {
#ifdef HAVE_SIGPROCMASK
{
sigset_t new;
sigemptyset(&new);
sigaddset(&new, ecl_option_values[ECL_OPT_THREAD_INTERRUPT_SIGNAL]);
pthread_sigmask(SIG_UNBLOCK, &new, NULL);
sigset_t *new = (sigset_t*)env->default_sigmask;
pthread_sigmask(SIG_SETMASK, new, NULL);
}
#endif
process->process.phase = ECL_PROCESS_ACTIVE;
@ -497,9 +495,9 @@ mp_process_enable(cl_object process)
*/
#ifdef HAVE_SIGPROCMASK
{
sigset_t previous, new = *((sigset_t*)process_env->default_sigmask);
sigaddset(&new, ecl_option_values[ECL_OPT_THREAD_INTERRUPT_SIGNAL]);
pthread_sigmask(SIG_SETMASK, &new, &previous);
sigset_t new, previous;
sigfillset(&new);
pthread_sigmask(SIG_BLOCK, &new, &previous);
code = pthread_create(&process->process.thread, &pthreadattr,
thread_entry_point, process);
pthread_sigmask(SIG_SETMASK, &previous, NULL);