From 6c342edce79e576b9ce3ecc40f5d332efe5de025 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 11 Jun 2003 11:40:20 +0000 Subject: [PATCH] [BOEHM_GC]: Include gc.h. (make_image, free_image, make_image_cache, free_image_cache) (cache_image): --- src/fns.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index ff0f7cb481c..08f56adea72 100644 --- a/src/fns.c +++ b/src/fns.c @@ -4669,6 +4669,7 @@ hash_clear (h) Weak Hash Tables ************************************************************************/ +#ifndef BOEHM_GC /* Sweep weak hash table H. REMOVE_ENTRIES_P non-zero means remove entries from the table that don't survive the current GC. REMOVE_ENTRIES_P zero means mark entries that are in use. Value is @@ -4791,7 +4792,11 @@ sweep_weak_hash_tables () h = XHASH_TABLE (table); next = h->next_weak; +#ifdef BOEHM_GC + if (GC_is_marked (h)) +#else if (h->size & ARRAY_MARK_FLAG) +#endif { /* TABLE is marked as used. Sweep its contents. */ if (XFASTINT (h->count) > 0) @@ -4805,8 +4810,7 @@ sweep_weak_hash_tables () Vweak_hash_tables = used; } - - +#endif /* BOEHM_GC */ /*********************************************************************** Hash Code Computation -- 2.39.5