Commit 1673df2e authored by Jan Djärv's avatar Jan Djärv
Browse files

* alloc.c (allocate_string_data): Call BLOCK_INPUT before calling

mallopt.

* ralloc.c (r_alloc_init): Ditto.
parent 2f2e2373
2005-04-02 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* alloc.c (allocate_string_data): Call BLOCK_INPUT before calling
mallopt.
* ralloc.c (r_alloc_init): Ditto.
2005-04-01 Kenichi Handa <handa@m17n.org>
 
* lisp.h (Vascii_upcase_table, Vascii_canon_table,
......
......@@ -1933,14 +1933,18 @@ allocate_string_data (s, nchars, nbytes)
mmap'ed data typically have an address towards the top of the
address space, which won't fit into an EMACS_INT (at least on
32-bit systems with the current tagging scheme). --fx */
BLOCK_INPUT;
mallopt (M_MMAP_MAX, 0);
UNBLOCK_INPUT;
#endif
b = (struct sblock *) lisp_malloc (size + GC_STRING_EXTRA, MEM_TYPE_NON_LISP);
#ifdef DOUG_LEA_MALLOC
/* Back to a reasonable maximum of mmap'ed areas. */
BLOCK_INPUT;
mallopt (M_MMAP_MAX, MMAP_MAX_AREAS);
UNBLOCK_INPUT;
#endif
b->next_free = &b->first_data;
......
......@@ -1255,7 +1255,9 @@ r_alloc_init ()
#endif
#ifdef DOUG_LEA_MALLOC
mallopt (M_TOP_PAD, 64 * 4096);
BLOCK_INPUT;
mallopt (M_TOP_PAD, 64 * 4096);
UNBLOCK_INPUT;
#else
#ifndef SYSTEM_MALLOC
/* Give GNU malloc's morecore some hysteresis
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment