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

Only block the process communication thread

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-03-29 22:25:28 +02:00
parent 1a9789f271
commit a5d1a4fdad
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/threads/queue.d
View file

@ -103,7 +103,8 @@ ecl_wait_on(cl_object (*condition)(cl_env_ptr, cl_object), cl_object o)
{
sigset_t empty;
sigemptyset(&empty);
pthread_sigmask(SIG_SETMASK, &original, &empty);
sigaddset(&empty, ecl_option_values[ECL_OPT_TRAP_INTERRUPT_SIGNAL]);
pthread_sigmask(SIG_BLOCK, &original, &empty);
}
/* 2) Now we add ourselves to the queue. In order to avoid a