From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 26 Jul 2019 17:15:20 +0000 (-0400)
Subject: * src/fns.c (maybe_resize_hash_table): Obey rehash_size (bug#25743)
X-Git-Tag: emacs-27.0.90~1817^2~93
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2260483560963fa490ae5ce55ff55f0ceaae379d;p=emacs.git

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

diff --git a/src/fns.c b/src/fns.c
index f4f3b95ac64..c45f4556463 100644
--- 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));