mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

(signal_delivery_thread): Restrict scm_i_pthread_sigmask

Browse source 
to HAVE_PTHREAD_SIGMASK, it doesn't exist on mingw.  Reported by Nils
Durner.
This commit is contained in:
Kevin Ryde 2006-12-27 00:00:44 +00:00
parent c9150d1ac9
commit 4d9ad6e23f
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/scmsigs.c
View file

@ -115,6 +115,12 @@ close_1 (SCM proc, SCM arg)
} }
#if SCM_USE_PTHREAD_THREADS #if SCM_USE_PTHREAD_THREADS
/* On mingw there's no notion of inter-process signals, only a raise()
within the process itself which apparently invokes the registered handler
immediately. Not sure how well the following code will cope in this
case. It builds but it may not offer quite the same scheme-level
semantics as on a proper system. If you're relying on much in the way of
signal handling on mingw you probably lose anyway. */
static int signal_pipe[2]; static int signal_pipe[2];
@ -158,12 +164,13 @@ read_without_guile (int fd, char *buf, size_t n)
static SCM static SCM
signal_delivery_thread (void *data) signal_delivery_thread (void *data)
{ {
sigset_t all_sigs;
int n, sig; int n, sig;
char sigbyte; char sigbyte;
#if HAVE_PTHREAD_SIGMASK /* not on mingw, see notes above */
sigset_t all_sigs;
sigfillset (&all_sigs); sigfillset (&all_sigs);
scm_i_pthread_sigmask (SIG_SETMASK, &all_sigs, NULL); scm_i_pthread_sigmask (SIG_SETMASK, &all_sigs, NULL);
#endif
while (1) while (1)
{ {