Mercurial > emacs
changeset 23973:2eb9e2f5aa33
(MMAP_MAX_AREAS): New macro.
(allocate_vectorlike, make_uninit_multibyte_string): Use that.
(init_alloc_once): Use that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 02 Jan 1999 00:10:26 +0000 |
| parents | 98ac51fd1935 |
| children | dcc1ebab38c1 |
| files | src/alloc.c |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 ();