scratch/igc 6eda172bfb9: Freeing of obarray buckets

[Gerd Moellmann]

branch: scratch/igc
commit 6eda172bfb9fa8d5d1b720f55b0893a8a0722af7
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    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,