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

Fixed order of arguments to pthread_sigmask()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-05 00:57:19 +02:00
parent 1683fe140d
commit e192df6069
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -203,8 +203,8 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
{
sigset_t empty;
sigemptyset(&empty);
sigaddset(&empty, ecl_option_values[ECL_OPT_TRAP_INTERRUPT_SIGNAL]);
pthread_sigmask(SIG_BLOCK, &original, &empty);
sigaddset(&empty, ecl_option_values[ECL_OPT_THREAD_INTERRUPT_SIGNAL]);
pthread_sigmask(SIG_BLOCK, &empty, &original);
}
/* 2) Now we add ourselves to the queue. In order to avoid a
@ -253,7 +253,7 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
/* 7) Restoring signals is done last, to ensure that
all cleanup steps are performed. */
pthread_sigmask(SIG_SETMASK, NULL, &original);
pthread_sigmask(SIG_SETMASK, &original, NULL);
} CL_UNWIND_PROTECT_END;
#else
ecl_wait_on_timed(env, condition, o);