From 6eda172bfb9fa8d5d1b720f55b0893a8a0722af7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gerd=20M=C3=B6llmann?= Date: Thu, 18 Apr 2024 20:44:53 +0200 Subject: [PATCH] Freeing of obarray buckets --- src/alloc.c | 2 +- src/lisp.h | 2 +- src/lread.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index dccdbb3d5ea..d9c3c887a5d 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -5817,7 +5817,7 @@ hash_table_alloc_kv (void *h, ptrdiff_t nobjs) } void -hash_table_free_kv (struct Lisp_Hash_Table *h, Lisp_Object *p) +hash_table_free_kv (void *h, Lisp_Object *p) { #ifdef HAVE_MPS /* Make sure to remove roots we creates. */ diff --git a/src/lisp.h b/src/lisp.h index 98ee07b0409..0de47d0966a 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -4688,7 +4688,7 @@ extern int valid_lisp_object_p (Lisp_Object); void *hash_table_alloc_bytes (ptrdiff_t nbytes) ATTRIBUTE_MALLOC_SIZE ((1)); void hash_table_free_bytes (void *p, ptrdiff_t nbytes); Lisp_Object *hash_table_alloc_kv (void *h, ptrdiff_t nobjs); -void hash_table_free_kv (struct Lisp_Hash_Table *h, Lisp_Object *p); +void hash_table_free_kv (void *h, Lisp_Object *p); /* Defined in gmalloc.c. */ #if !defined DOUG_LEA_MALLOC && !defined HYBRID_MALLOC && !defined SYSTEM_MALLOC diff --git a/src/lread.c b/src/lread.c index 5a770a94133..7db76e9bb9b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -5306,7 +5306,7 @@ grow_obarray (struct Lisp_Obarray *o) } } - hash_table_free_bytes (old_buckets, old_size * sizeof *old_buckets); + hash_table_free_kv (o, old_buckets); } DEFUN ("obarray-make", Fobarray_make, Sobarray_make, 0, 1, 0,