From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 16 May 1997 05:35:04 +0000 (+0000)
Subject: (mallopt): Declare, if appropriate.
X-Git-Tag: emacs-20.1~2100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0119c682530d420cd07e6b4bb5f4d52904de47d;p=emacs.git

(mallopt): Declare, if appropriate.
(r_alloc_init) [DOUG_LEA_MALLOC]: Call mallopt,
instead of setting __malloc_extra_blocks.
---

diff --git a/src/ralloc.c b/src/ralloc.c
index 179fd314928..5373212a483 100644
--- a/src/ralloc.c
+++ b/src/ralloc.c
@@ -57,7 +57,12 @@ typedef unsigned long SIZE;
    overlap.  */
 extern void safe_bcopy ();
 
+#ifdef DOUG_LEA_MALLOC
+#define M_TOP_PAD           -2 
+extern int mallopt ();
+#else
 extern int __malloc_extra_blocks;
+#endif
 
 #else /* not emacs */
 
@@ -1119,9 +1124,13 @@ r_alloc_init ()
   page_size = PAGE;
   extra_bytes = ROUNDUP (50000);
 
+#ifdef DOUG_LEA_MALLOC
+    mallopt (M_TOP_PAD, 64 * 4096);
+#else
   /* Give GNU malloc's morecore some hysteresis
      so that we move all the relocatable blocks much less often.  */
   __malloc_extra_blocks = 64;
+#endif
 
   first_heap->end = (POINTER) ROUNDUP (first_heap->start);