diff options
author | Andy Wingo <wingo@pobox.com> | 2011-06-16 19:35:14 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-06-16 19:39:58 +0200 |
commit | 0b77014f0c7d53b8bdbc7059c92f526560e1cacd (patch) | |
tree | 66f00f9f8d84ef61b96e839aa1442d6ff59bc1cf /libguile/threads.c | |
parent | 2dd49486445c18f047dd2b81e9d9f49dc1b2c41b (diff) | |
download | guile-0b77014f0c7d53b8bdbc7059c92f526560e1cacd.tar.gz |
fix initial values of reallocated fluids
* libguile/threads.h:
* libguile/threads.c (scm_i_reset_fluid): New internal function, resets
the binding of a fluid for all threads. Needed for fluid GC.
* libguile/fluids.c (new_fluid): Call scm_i_reset_fluid here.
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index 64807f8c0..97d9f6497 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -484,6 +484,24 @@ static int thread_count; static SCM scm_i_default_dynamic_state; +/* Run when a fluid is collected. */ +void +scm_i_reset_fluid (size_t n, SCM val) +{ + scm_i_thread *t; + + scm_i_pthread_mutex_lock (&thread_admin_mutex); + for (t = all_threads; t; t = t->next_thread) + if (SCM_I_DYNAMIC_STATE_P (t->dynamic_state)) + { + SCM v = SCM_I_DYNAMIC_STATE_FLUIDS (t->dynamic_state); + + if (n < SCM_SIMPLE_VECTOR_LENGTH (v)) + SCM_SIMPLE_VECTOR_SET (v, n, val); + } + scm_i_pthread_mutex_unlock (&thread_admin_mutex); +} + /* Perform first stage of thread initialisation, in non-guile mode. */ static void |