# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 863760904 0
# Node ID ac6367122ee2fddd3a4f7e338d9feacc9bd0685a
# Parent  d37bf1f56b050df7361382ace336cb46221f837a
(mallopt): Declare, if appropriate.
(r_alloc_init) [DOUG_LEA_MALLOC]: Call mallopt,
instead of setting __malloc_extra_blocks.

diff -r d37bf1f56b05 -r ac6367122ee2 src/ralloc.c
--- a/src/ralloc.c	Fri May 16 02:23:12 1997 +0000
+++ b/src/ralloc.c	Fri May 16 05:35:04 1997 +0000
@@ -57,7 +57,12 @@
    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 @@
   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);