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

Fixed wrong initialization error in process.d

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-07 19:32:09 +02:00
parent 748eb30ebe
commit 8810352ceb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -497,9 +497,9 @@ mp_process_enable(cl_object process)
*/
#ifdef HAVE_SIGPROCMASK
{
sigset_t previous, new = process_env->default_sigmask;
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);
pthread_sigmask(SIG_SETMASK, &new, &previous);
code = pthread_create(&process->process.thread, &pthreadattr,
thread_entry_point, process);
pthread_sigmask(SIG_SETMASK, &previous, NULL);