Added gc_admin_mutex.

2 files changed, 6 insertions, 0 deletions

diff --git a/libguile/gc.c b/libguile/gc.c
index 27d613092..5b3dfa471 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -884,6 +884,8 @@ scm_storage_prehistory ()
   scm_c_hook_init (&scm_after_gc_c_hook, 0, SCM_C_HOOK_NORMAL);
 }
 
+scm_t_mutex scm_i_gc_admin_mutex;
+
 int
 scm_init_storage ()
 {
@@ -891,6 +893,8 @@ scm_init_storage ()
 
   /* Fixme: Should use mutexattr from the low-level API. */
   scm_rec_mutex_init (&scm_i_sweep_mutex, &scm_i_plugin_rec_mutex);
+
+  scm_i_plugin_mutex_init (&scm_i_gc_admin_mutex, &scm_i_plugin_mutex);
   
   j = SCM_NUM_PROTECTS;
   while (j)
diff --git a/libguile/gc.h b/libguile/gc.h
index 0dc40f618..4e546446b 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -230,6 +230,8 @@ SCM_API int scm_debug_cells_gc_interval ;
 void scm_i_expensive_validation_check (SCM cell);
 #endif
 
+SCM_API scm_t_mutex scm_i_gc_admin_mutex;
+
 SCM_API int scm_block_gc;
 SCM_API int scm_gc_heap_lock;
 SCM_API unsigned int scm_gc_running_p;