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

Re-fixed the hash table element counting in `scm_i_rehash ()'.

Browse source 
* libguile/hashtab.c (scm_i_rehash): Don't invoke
  `SCM_HASHTABLE_DECREMENT ()' when a weak pair is encountered in the
  source bucket.

git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-43
This commit is contained in:
Ludovic Courtes 2006-06-25 22:43:33 +00:00 • committed by Ludovic Courtès
parent e13f1cbdff
commit 639e56a4ed
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/hashtab.c
View file

@ -274,11 +274,8 @@ scm_i_rehash (SCM table,
ls = SCM_CDR (ls);
if (SCM_WEAK_PAIR_DELETED_P (handle))
{
/* HANDLE is a nullified weak pair: skip it. */
SCM_HASHTABLE_DECREMENT (table);
continue;
}
/* HANDLE is a nullified weak pair: skip it. */
continue;
h = hash_fn (SCM_CAR (handle), new_size, closure);
if (h >= new_size)