mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 00:30:37 -08:00
Code Issues Projects Releases Wiki Activity

Freeing of obarray buckets

Browse source
This commit is contained in:
Gerd Möllmann 2024-04-18 20:44:53 +02:00
parent 38c1470aea
commit 6eda172bfb
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/alloc.c
View file

@ -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. */

2
src/lisp.h
View file

@ -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

2
src/lread.c
View file

@ -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,