diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-16 09:50:21 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-16 09:50:21 +0000 |
commit | dea5539eec09b0eef1c144125e2b0bd63310eed1 (patch) | |
tree | 440ce4d6ea5d44df93ac57ecb3aca6ba17f1f64a /libguile/threads.c | |
parent | 93cd4dcd9c37f3ee1401742dcc81ec192209b5ff (diff) | |
download | guile-dea5539eec09b0eef1c144125e2b0bd63310eed1.tar.gz |
* pthread-threads.c, pthread-threads.h, threads.c: Fixes to
pthread "native" recursive mutex support.
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index cafe680c4..166c191ac 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -157,7 +157,7 @@ make_thread (SCM creation_protects) t->base = NULL; t->joining_threads = make_queue (); scm_i_plugin_cond_init (&t->sleep_cond, 0); - scm_i_plugin_mutex_init (&t->heap_mutex, 0); + scm_i_plugin_mutex_init (&t->heap_mutex, &scm_i_plugin_mutex); t->clear_freelists_p = 0; t->exited = 0; return z; @@ -581,7 +581,7 @@ SCM_DEFINE (scm_make_fair_mutex, "make-fair-mutex", 0, 0, 0, { SCM mx = scm_make_smob (scm_tc16_fair_mutex); fair_mutex *m = SCM_MUTEX_DATA (mx); - scm_i_plugin_mutex_init (&m->lock, 0); + scm_i_plugin_mutex_init (&m->lock, &scm_i_plugin_mutex); m->lockedp = 0; m->owner = SCM_BOOL_F; m->level = 0; @@ -763,7 +763,7 @@ SCM_DEFINE (scm_make_mutex, "make-mutex", 0, 0, 0, #define FUNC_NAME s_scm_make_mutex { SCM mx = scm_make_smob (scm_tc16_mutex); - scm_i_plugin_mutex_init (SCM_MUTEX_DATA (mx), 0); + scm_i_plugin_mutex_init (SCM_MUTEX_DATA (mx), &scm_i_plugin_mutex); return mx; } #undef FUNC_NAME |