From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 19 Feb 1995 19:12:17 +0000 (+0000)
Subject: (r_alloc_init): Set __malloc_extra_blocks.
X-Git-Tag: emacs-19.34~5073
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=490818344050abd8e809b74017489f5262bcb375;p=emacs.git

(r_alloc_init): Set __malloc_extra_blocks.
---

diff --git a/src/ralloc.c b/src/ralloc.c
index d9fb639379b..d5248f2cb0a 100644
--- a/src/ralloc.c
+++ b/src/ralloc.c
@@ -56,6 +56,8 @@ typedef unsigned long SIZE;
    overlap.  */
 extern void safe_bcopy ();
 
+extern int __malloc_extra_blocks;
+
 #else /* not emacs */
 
 #include <stddef.h>
@@ -1002,6 +1004,10 @@ r_alloc_init ()
   page_size = PAGE;
   extra_bytes = ROUNDUP (50000);
 
+  /* Give GNU malloc's morecore some hysteresis
+     so that we move all the relocatable blocks much less often.  */
+  __malloc_extra_blocks = 64;
+
   first_heap->end = (POINTER) ROUNDUP (first_heap->start);
 
   /* The extra call to real_morecore guarantees that the end of the