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

explicitly cast original in queue.d

Browse source 
original is declared as volatile, but pthread_* discards this
qualifier. Do explicit cast to get rid of warning.
This commit is contained in:
Daniel Kochmański 2016-10-06 12:59:13 +02:00
parent fb72db4ed2
commit fe0453fc08
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

@ -247,7 +247,7 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
sigset_t empty;
sigemptyset(&empty);
sigaddset(&empty, code);
pthread_sigmask(SIG_BLOCK, &empty, &original);
pthread_sigmask(SIG_BLOCK, &empty, (sigset_t *)&original);
}
/* 2) Now we add ourselves to the queue. */
@ -268,7 +268,7 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
* as a consequence we might throw / return
* which is why need to protect it all with
* UNWIND-PROTECT. */
sigsuspend(&original);
sigsuspend((sigset_t *)&original);
}
} ECL_UNWIND_PROTECT_EXIT {
/* 4) At this point we wrap up. We remove ourselves
@ -291,7 +291,7 @@ ecl_wait_on(cl_env_ptr env, cl_object (*condition)(cl_env_ptr, cl_object), cl_ob
/* 6) Restoring signals is done last, to ensure that
* all cleanup steps are performed. */
pthread_sigmask(SIG_SETMASK, &original, NULL);
pthread_sigmask(SIG_SETMASK, (sigset_t *)&original, NULL);
} ECL_UNWIND_PROTECT_END;
return output;
#else