From 6111b86bdcc0dd4c8821ccf70fecc5dbd8590830 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 23 Mar 2020 21:40:06 +0100 Subject: 'resize_set' no longer allocates in a loop. * libguile/weak-set.c (resize_set): Call 'scm_gc_malloc_pointerless' outside the loop. --- libguile/weak-set.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/weak-set.c b/libguile/weak-set.c index e71af9a7d..93c429346 100644 --- a/libguile/weak-set.c +++ b/libguile/weak-set.c @@ -363,11 +363,11 @@ resize_set (scm_t_weak_set *set) if (new_size_index == set->size_index) return; new_size = hashset_size[new_size_index]; - new_entries = scm_gc_malloc_pointerless (new_size * sizeof(scm_t_weak_entry), - "weak set"); } while (!is_acceptable_size_index (set, new_size_index)); + new_entries = scm_gc_malloc_pointerless (new_size * sizeof (scm_t_weak_entry), + "weak set"); old_entries = set->entries; old_size = set->size; -- cgit v1.2.3