]> git.eshelyaron.com Git - emacs.git/commitdiff
* alloc.c (allocate_string_data): Call BLOCK_INPUT before calling
authorJan Djärv <jan.h.d@swipnet.se>
Sat, 2 Apr 2005 12:05:38 +0000 (12:05 +0000)
committerJan Djärv <jan.h.d@swipnet.se>
Sat, 2 Apr 2005 12:05:38 +0000 (12:05 +0000)
mallopt.

* ralloc.c (r_alloc_init): Ditto.

src/ChangeLog
src/alloc.c
src/ralloc.c

index 9518de3af8f9544ffb10f4636fa5722cc08981c2..ef635f206bdfe089b4aabfb02a49a6f8ddc4f921 100644 (file)
@@ -1,3 +1,10 @@
+2005-04-02  Jan Dj\e,Ad\e(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,
index d529ab9927b86eb2fb1d36f32bd5a333d9a70994..a907247d21c90ab998f65abb4a85fce06f512c1d 100644 (file)
@@ -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;
index 75c25258a9deb0774fa8e9be69691fb8db985884..e209db726737b405170821fd1f3853345cb21db4 100644 (file)
@@ -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