diff options
| author | Karoly Lorentey | 2005-04-04 16:43:15 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-04-04 16:43:15 +0000 |
| commit | ee00ea6e18c2aeae86e262fae703f67f4705032a (patch) | |
| tree | 9e7fc6bfb33de2b2f861589a2f7674ad35de85a8 /src/alloc.c | |
| parent | 4a932511428a2b61ec51deebd6e16ec1efbda800 (diff) | |
| parent | 8c6ef2ca34c444c1dea1f11b999b4b2ec16cdea3 (diff) | |
| download | emacs-ee00ea6e18c2aeae86e262fae703f67f4705032a.tar.gz emacs-ee00ea6e18c2aeae86e262fae703f67f4705032a.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 45-55, 214-231)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-214
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-215
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-216
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-217
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-218
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-219
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-220
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-221
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-222
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-223
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-224
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-225
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-226
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-227
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-228
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-229
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-230
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-231
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-45
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-46
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-47
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-48
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-49
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-50
Update from CVS: texi Makefile.in CVS keyw cruft
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-51
Update from CVS: ChangeLog tweaks
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-52
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-53
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-54
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-55
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-324
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index dbb77f77128..c29c4c8e7f6 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -1934,14 +1934,18 @@ allocate_string_data (s, nchars, nbytes) | |||
| 1934 | mmap'ed data typically have an address towards the top of the | 1934 | mmap'ed data typically have an address towards the top of the |
| 1935 | address space, which won't fit into an EMACS_INT (at least on | 1935 | address space, which won't fit into an EMACS_INT (at least on |
| 1936 | 32-bit systems with the current tagging scheme). --fx */ | 1936 | 32-bit systems with the current tagging scheme). --fx */ |
| 1937 | BLOCK_INPUT; | ||
| 1937 | mallopt (M_MMAP_MAX, 0); | 1938 | mallopt (M_MMAP_MAX, 0); |
| 1939 | UNBLOCK_INPUT; | ||
| 1938 | #endif | 1940 | #endif |
| 1939 | 1941 | ||
| 1940 | b = (struct sblock *) lisp_malloc (size + GC_STRING_EXTRA, MEM_TYPE_NON_LISP); | 1942 | b = (struct sblock *) lisp_malloc (size + GC_STRING_EXTRA, MEM_TYPE_NON_LISP); |
| 1941 | 1943 | ||
| 1942 | #ifdef DOUG_LEA_MALLOC | 1944 | #ifdef DOUG_LEA_MALLOC |
| 1943 | /* Back to a reasonable maximum of mmap'ed areas. */ | 1945 | /* Back to a reasonable maximum of mmap'ed areas. */ |
| 1946 | BLOCK_INPUT; | ||
| 1944 | mallopt (M_MMAP_MAX, MMAP_MAX_AREAS); | 1947 | mallopt (M_MMAP_MAX, MMAP_MAX_AREAS); |
| 1948 | UNBLOCK_INPUT; | ||
| 1945 | #endif | 1949 | #endif |
| 1946 | 1950 | ||
| 1947 | b->next_free = &b->first_data; | 1951 | b->next_free = &b->first_data; |
| @@ -4684,6 +4688,8 @@ returns nil, because real GC can't be done. */) | |||
| 4684 | if (pure_bytes_used_before_overflow) | 4688 | if (pure_bytes_used_before_overflow) |
| 4685 | return Qnil; | 4689 | return Qnil; |
| 4686 | 4690 | ||
| 4691 | CHECK_CONS_LIST (); | ||
| 4692 | |||
| 4687 | /* Don't keep undo information around forever. | 4693 | /* Don't keep undo information around forever. |
| 4688 | Do this early on, so it is no problem if the user quits. */ | 4694 | Do this early on, so it is no problem if the user quits. */ |
| 4689 | { | 4695 | { |
| @@ -4878,6 +4884,8 @@ returns nil, because real GC can't be done. */) | |||
| 4878 | 4884 | ||
| 4879 | UNBLOCK_INPUT; | 4885 | UNBLOCK_INPUT; |
| 4880 | 4886 | ||
| 4887 | CHECK_CONS_LIST (); | ||
| 4888 | |||
| 4881 | /* clear_marks (); */ | 4889 | /* clear_marks (); */ |
| 4882 | gc_in_progress = 0; | 4890 | gc_in_progress = 0; |
| 4883 | 4891 | ||