summaryrefslogtreecommitdiff
path: root/libguile/async.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/async.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/async.c')
-rw-r--r--libguile/async.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 80f561d10..e8739979c 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2004, 2006, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2004, 2006, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -133,6 +133,7 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
static scm_i_pthread_mutex_t async_mutex = SCM_I_PTHREAD_MUTEX_INITIALIZER;
+SCM_PTHREAD_ATFORK_LOCK_STATIC_MUTEX (async_mutex);
/* System asyncs. */