mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

* gc.c (scm_igc): Don't call scm_i_thread_invalidate_freelists.

Browse source 
* 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.
This commit is contained in:
Mikael Djurfeldt 2002-12-11 06:54:59 +00:00
parent 960c408c04
commit 392d2833a2
4 changed files with 25 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/root.c
View file

@ -105,7 +105,6 @@ scm_make_root (SCM parent)
if (SCM_ROOTP (parent))
{
memcpy (root_state, SCM_ROOT_STATE (parent), sizeof (scm_root_state));
scm_copy_fluids (root_state);
root_state->parent = parent;
}
else
@ -132,10 +131,13 @@ scm_make_root (SCM parent)
root_state->block_asyncs = 0;
root_state->pending_asyncs = 1;
SCM_REDEFER_INTS;
SCM_NEWSMOB (root, scm_tc16_root, root_state);
root_state->handle = root;
SCM_REALLOW_INTS;
if (SCM_ROOTP (parent))
/* Must be done here so that fluids are GC protected */
scm_copy_fluids (root_state);
return root;
}