summaryrefslogtreecommitdiff
path: root/libguile/hashtab.c
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-05-14 18:44:09 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-05 00:48:31 +0200
commitce6660664198cc05a30ab5f342f8f95d491dbb41 (patch)
tree5648c4b8596d44db8980820eb13ee4b3d46bb65d /libguile/hashtab.c
parent59cac9e3d8fb0097aba43dd3351274593ec552d7 (diff)
downloadguile-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.c38
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,