diff options
author | Andy Wingo <wingo@pobox.com> | 2016-11-01 23:31:11 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-11-01 23:32:41 +0100 |
commit | 65268ff37a89e02eddb5658c5c0e97ed9d0fe3c4 (patch) | |
tree | 097a155e92b3d3cd6a331d4ae50277d6ecb3138a /libguile/scmsigs.c | |
parent | 2e2396d28cbf35c753bc831e20b1b6bc2cefb04d (diff) | |
download | guile-65268ff37a89e02eddb5658c5c0e97ed9d0fe3c4.tar.gz |
Remove last critical section use
* libguile/scmsigs.c (signal_handler_lock): New variable.
(scm_sigaction_for_thread): Block asyncs and use a mutex instead of
using scm_dynwind_critical_section.
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index d52fe8cba..d852e7101 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -86,6 +86,8 @@ signal_handler_threads points to the thread that a signal should be delivered to. */ +static scm_i_pthread_mutex_t signal_handler_lock = + SCM_I_PTHREAD_MUTEX_INITIALIZER; static SCM *signal_handlers; static SCM signal_handler_asyncs; static SCM signal_handler_threads; @@ -335,7 +337,8 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0, scm_i_ensure_signal_delivery_thread (); scm_dynwind_begin (0); - scm_dynwind_critical_section (SCM_BOOL_F); + scm_dynwind_pthread_mutex_lock (&signal_handler_lock); + scm_dynwind_block_asyncs (); old_handler = SCM_SIMPLE_VECTOR_REF (*signal_handlers, csig); if (SCM_UNBNDP (handler)) |