diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2006-05-14 18:44:09 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-05 00:48:31 +0200 |
commit | ce6660664198cc05a30ab5f342f8f95d491dbb41 (patch) | |
tree | 5648c4b8596d44db8980820eb13ee4b3d46bb65d /libguile/hashtab.c | |
parent | 59cac9e3d8fb0097aba43dd3351274593ec552d7 (diff) | |
download | guile-ce6660664198cc05a30ab5f342f8f95d491dbb41.tar.gz |
procs/weaks/hashtab: Removed a bit of useless mark/free code.
* libguile/hashtab.c (UNMARKED_CELL_P): Removed.
(scm_i_scan_weak_hashtables): Removed.
* libguile/hashtab.h (scm_i_scan_weak_hashtables): Removed.
* libguile/procs.c (scm_mark_subr_table): Removed.
* libguile/procs.h (scm_mark_subr_table): Removed.
* libguile/weaks.c (UNMARKED_CELL_P): Removed.
(scm_i_remove_weaks): Removed.
(scm_i_remove_weaks_from_weak_vectors): Removed.
git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-18
Diffstat (limited to 'libguile/hashtab.c')
-rw-r--r-- | libguile/hashtab.c | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/libguile/hashtab.c b/libguile/hashtab.c index e55eee5aa..7f882948a 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -400,47 +400,9 @@ hashtable_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED) return 1; } -/* FIXME */ -#define UNMARKED_CELL_P(x) 0 /* (SCM_NIMP(x) && !SCM_GC_MARK_P (x)) */ - /* keep track of hash tables that need to shrink after scan */ static SCM to_rehash = SCM_EOL; -/* scan hash tables and update hash tables item count */ -void -scm_i_scan_weak_hashtables () -{ -#if 0 /* FIXME */ - SCM *next = &weak_hashtables; - SCM h = *next; - while (!scm_is_null (h)) - { - if (!SCM_GC_MARK_P (h)) - *next = h = SCM_HASHTABLE_NEXT (h); - else - { - SCM vec = SCM_HASHTABLE_VECTOR (h); - size_t delta = SCM_I_WVECT_DELTA (vec); - SCM_I_SET_WVECT_DELTA (vec, 0); - SCM_SET_HASHTABLE_N_ITEMS (h, SCM_HASHTABLE_N_ITEMS (h) - delta); - - if (SCM_HASHTABLE_N_ITEMS (h) < SCM_HASHTABLE_LOWER (h)) - { - SCM tmp = SCM_HASHTABLE_NEXT (h); - /* temporarily move table from weak_hashtables to to_rehash */ - SCM_SET_HASHTABLE_NEXT (h, to_rehash); - to_rehash = h; - *next = h = tmp; - } - else - { - next = SCM_HASHTABLE_NEXTLOC (h); - h = SCM_HASHTABLE_NEXT (h); - } - } - } -#endif -} static void * rehash_after_gc (void *dummy1 SCM_UNUSED, |