summaryrefslogtreecommitdiff
path: root/libguile/fluids.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-02-08 19:57:41 +0100
committerAndy Wingo <wingo@pobox.com>2012-02-17 12:11:14 +0100
commit6a97b1f93aace5c7c976aef51d36b3ae9cfd5630 (patch)
treed62914e464bb680663453931973aef3cb4e187b5 /libguile/fluids.c
parent2f745b64a1eb06e9e175a1b497d5270bebff9097 (diff)
downloadguile-6a97b1f93aace5c7c976aef51d36b3ae9cfd5630.tar.gz
install pthread_atfork handlers for guile's static mutexen
* libguile/async.c: * libguile/deprecation.c: * libguile/fluids.c: * libguile/gc.c: * libguile/instructions.c: * libguile/ports.c: * libguile/posix.c: * libguile/strings.c: * libguile/threads.c: Use the SCM_PTHREAD_ATFORK_LOCK_STATIC_MUTEX mechanism to lock a number of static mutexen.
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r--libguile/fluids.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c
index 282718e65..e4906a418 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -44,6 +44,7 @@ static void **allocated_fluids = NULL;
static size_t allocated_fluids_len = 0;
static scm_i_pthread_mutex_t fluid_admin_mutex = SCM_I_PTHREAD_MUTEX_INITIALIZER;
+SCM_PTHREAD_ATFORK_LOCK_STATIC_MUTEX (fluid_admin_mutex);
#define IS_FLUID(x) SCM_FLUID_P (x)
#define FLUID_NUM(x) SCM_I_FLUID_NUM (x)