mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

add pthread_atfork helpers to our threading shims

Browse source 
* libguile/null-threads.h:
* libguile/pthread-threads.h (SCM_DEFINE_ATFORK_HANDLERS_FOR_MUTEX)
  (scm_i_pthread_atfork): Define a pthread_atfork shim, and a helper to
  declare procedures to lock and unlock a mutex.

* libguile/threads.h (SCM_PTHREAD_ATFORK_LOCK_STATIC_MUTEX): New macro,
  causes the snarfer to emit a pthread_atfork call to lock a mutex, if
  threads are enabled.
This commit is contained in:
Andy Wingo 2012-02-17 11:35:02 +01:00
parent f609480611
commit 2f745b64a1
3 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/pthread-threads.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_PTHREADS_THREADS_H
#define SCM_PTHREADS_THREADS_H
/* Copyright (C) 2002, 2005, 2006, 2011 Free Software Foundation, Inc.
/* Copyright (C) 2002, 2005, 2006, 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
@ -97,6 +97,14 @@ extern pthread_mutexattr_t scm_i_pthread_mutexattr_recursive[1];
#define scm_i_scm_pthread_cond_wait scm_pthread_cond_wait
#define scm_i_scm_pthread_cond_timedwait scm_pthread_cond_timedwait
#define SCM_DEFINE_ATFORK_HANDLERS_FOR_MUTEX(m,lock,unlock) \
static void lock (void) { pthread_mutex_lock (m); } \
static void unlock (void) { pthread_mutex_unlock (m); }
/* noop */
#define scm_i_pthread_atfork(pre,parent,child) \
pthread_atfork (pre, parent, child)
#endif /* SCM_PTHREADS_THREADS_H */
/*