* src/fns.c (maybe_resize_hash_table): Obey rehash_size (bug#25743)

diff --git a/src/fns.c b/src/fns.c
index f4f3b95ac642e41a344af7e1194dc2158164f74c..c45f45564632b0c0ee2b6a41883e8928080e1245 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -4190,7 +4190,7 @@ maybe_resize_hash_table (struct Lisp_Hash_Table *h)
         avoid problems if memory is exhausted.  larger_vecalloc
         finishes computing the size of the replacement vectors.  */
       Lisp_Object next = larger_vecalloc (h->next, new_size - old_size,
-                                         PTRDIFF_MAX / 2);
+                                         new_size);
       ptrdiff_t next_size = ASIZE (next);
       for (ptrdiff_t i = old_size; i < next_size - 1; i++)
        gc_aset (next, i, make_fixnum (i + 1));