diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-11 06:54:59 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2002-12-11 06:54:59 +0000 |
commit | 392d2833a2dddee61c5e78bc07aca7fc185fe314 (patch) | |
tree | 8f70d6ff5c62b2b8b135edab76229521dc8fb1c7 /libguile/threads.c | |
parent | 960c408c04470b0680e250b44e5273987e1aa66d (diff) | |
download | guile-392d2833a2dddee61c5e78bc07aca7fc185fe314.tar.gz |
* gc.c (scm_igc): Don't call scm_i_thread_invalidate_freelists.
* gc.c (scm_gc_sweep): Call it here instead, which is a more
logical place.
* threads.c (create_thread): Remember root object until the handle
of the new thread is on all_threads list.
* root.c (scm_make_root): Moved copying of fluids until after
creation of root handle so that the fluids are GC protected. Also
removed the critical section.
Diffstat (limited to 'libguile/threads.c')
-rw-r--r-- | libguile/threads.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/libguile/threads.c b/libguile/threads.c index 0c68221d7..33f092768 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -411,6 +411,9 @@ create_thread (scm_t_catch_body body, void *body_data, all_threads = new_threads; thread_count++; scm_i_plugin_mutex_unlock (&thread_admin_mutex); + + scm_remember_upto_here_1 (root); + scm_i_enter_guile (parent); } |