mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-11 08:10:21 +02:00
Code Activity

use scm_c_atfork_lock_static_mutex for guile's static mutexen

Browse source 
* libguile/async.c (scm_init_async):
* libguile/deprecation.c (scm_init_deprecation):
* libguile/fluids.c (scm_init_fluids):
* libguile/gc.c (scm_init_gc):
* libguile/instructions.c (scm_bootstrap_instructions):
* libguile/ports.c (scm_init_ports):
* libguile/posix.c (scm_init_posix):
* libguile/strings.c (string_get_handle):
* libguile/threads.c (scm_init_threads): Use the atfork mutex mechanism
  to lock a number of static mutexen.
This commit is contained in:
Andy Wingo 2012-02-08 19:57:41 +01:00
parent 585eb4f702
commit 7329a5dba1
9 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/threads.c
View file

@ -2194,6 +2194,10 @@ scm_init_threads ()
threads_initialized_p = 1;
dynwind_critical_section_mutex = scm_make_recursive_mutex ();
scm_c_atfork_lock_static_mutex (&scm_i_critical_section_mutex);
scm_c_atfork_lock_static_mutex (&scm_i_misc_mutex);
scm_c_atfork_lock_static_mutex (&thread_admin_mutex);
}
void