mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(rehash_after_gc): Bug fix: properly link the processed hashtables

Browse source 
back into the weak_hashtables list.  Thanks to Bill Schottstaedt!
This commit is contained in:
Marius Vollmer 2004-05-18 21:29:38 +00:00
parent e7313a9d7e
commit e0245b20cb
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/hashtab.c
View file

@ -268,10 +268,11 @@ rehash_after_gc (void *dummy1 SCM_UNUSED,
{
if (!SCM_NULLP (to_rehash))
{
SCM h = to_rehash, last;
SCM first = to_rehash, last, h;
/* important to clear to_rehash here so that we don't get stuck
in an infinite loop if scm_i_rehash causes GC */
to_rehash = SCM_EOL;
h = first;
do
{
scm_i_rehash (h,
@ -284,7 +285,7 @@ rehash_after_gc (void *dummy1 SCM_UNUSED,
} while (!SCM_NULLP (h));
/* move tables back to weak_hashtables */
SCM_SET_HASHTABLE_NEXT (last, weak_hashtables);
weak_hashtables = to_rehash;
weak_hashtables = first;
}
return 0;
}