# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915235826 0
# Node ID 2eb9e2f5aa33cbd16e46f8ae55d4aea77ec5e76c
# Parent  98ac51fd1935913cc13e044f81a0759bf3b94217
(MMAP_MAX_AREAS): New macro.
(allocate_vectorlike, make_uninit_multibyte_string): Use that.
(init_alloc_once): Use that.

diff -r 98ac51fd1935 -r 2eb9e2f5aa33 src/alloc.c
--- a/src/alloc.c	Thu Dec 31 20:05:04 1998 +0000
+++ b/src/alloc.c	Sat Jan 02 00:10:26 1999 +0000
@@ -42,6 +42,12 @@
 #ifdef DOUG_LEA_MALLOC
 #include <malloc.h>
 #define __malloc_size_t int
+
+/* Specify maximum number of areas to mmap.
+   It would be nice to use a value that explicitly
+   means "no limit".  */
+#define MMAP_MAX_AREAS 100000000
+
 #else
 /* The following come from gmalloc.c.  */
 
@@ -840,7 +846,7 @@
 				     + (len - 1) * sizeof (Lisp_Object));
 #ifdef DOUG_LEA_MALLOC
   /* Back to a reasonable maximum of mmap'ed areas. */
-  mallopt (M_MMAP_MAX, 64);
+  mallopt (M_MMAP_MAX, MMAP_MAX_AREAS);
 #endif
   VALIDATE_LISP_STORAGE (p, 0);
   consing_since_gc += (sizeof (struct Lisp_Vector)
@@ -1427,7 +1433,7 @@
       new = (struct string_block *) lisp_malloc (sizeof (struct string_block_head) + fullsize);
 #ifdef DOUG_LEA_MALLOC
       /* Back to a reasonable maximum of mmap'ed areas. */
-      mallopt (M_MMAP_MAX, 64);
+      mallopt (M_MMAP_MAX, MMAP_MAX_AREAS);
 #endif
       n_string_blocks++;
       VALIDATE_LISP_STORAGE (new, 0);
@@ -3014,7 +3020,7 @@
 #ifdef DOUG_LEA_MALLOC
   mallopt (M_TRIM_THRESHOLD, 128*1024); /* trim threshold */
   mallopt (M_MMAP_THRESHOLD, 64*1024); /* mmap threshold */
-  mallopt (M_MMAP_MAX, 64); /* max. number of mmap'ed areas */
+  mallopt (M_MMAP_MAX, MMAP_MAX_AREAS); /* max. number of mmap'ed areas */
 #endif
   init_strings ();
   init_cons ();