1933 |
mmap'ed data typically have an address towards the top of the |
mmap'ed data typically have an address towards the top of the |
1934 |
address space, which won't fit into an EMACS_INT (at least on |
address space, which won't fit into an EMACS_INT (at least on |
1935 |
32-bit systems with the current tagging scheme). --fx */ |
32-bit systems with the current tagging scheme). --fx */ |
1936 |
|
BLOCK_INPUT; |
1937 |
mallopt (M_MMAP_MAX, 0); |
mallopt (M_MMAP_MAX, 0); |
1938 |
|
UNBLOCK_INPUT; |
1939 |
#endif |
#endif |
1940 |
|
|
1941 |
b = (struct sblock *) lisp_malloc (size + GC_STRING_EXTRA, MEM_TYPE_NON_LISP); |
b = (struct sblock *) lisp_malloc (size + GC_STRING_EXTRA, MEM_TYPE_NON_LISP); |
1942 |
|
|
1943 |
#ifdef DOUG_LEA_MALLOC |
#ifdef DOUG_LEA_MALLOC |
1944 |
/* Back to a reasonable maximum of mmap'ed areas. */ |
/* Back to a reasonable maximum of mmap'ed areas. */ |
1945 |
|
BLOCK_INPUT; |
1946 |
mallopt (M_MMAP_MAX, MMAP_MAX_AREAS); |
mallopt (M_MMAP_MAX, MMAP_MAX_AREAS); |
1947 |
|
UNBLOCK_INPUT; |
1948 |
#endif |
#endif |
1949 |
|
|
1950 |
b->next_free = &b->first_data; |
b->next_free = &b->first_data; |