Mercurial > emacs
annotate src/vm-limit.c @ 99492:ee792794d888
(isearch-search-fun): Compare the length of the
current search string with the length of the string from the
previous search state to detect the situation when the user
adds or removes characters in the search string.
Use word-search-forward-lax and word-search-backward-lax in this
case, and otherwise word-search-forward and word-search-backward.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Tue, 11 Nov 2008 19:43:09 +0000 |
parents | 439bc48615be |
children | c089527800d9 |
rev | line source |
---|---|
734 | 1 /* Functions for memory limit warnings. |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
2 Copyright (C) 1990, 1992, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
3 2008 Free Software Foundation, Inc. |
734 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
7 GNU Emacs is free software: you can redistribute it and/or modify |
734 | 8 it under the terms of the GNU General Public License as published by |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
9 the Free Software Foundation, either version 3 of the License, or |
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
10 (at your option) any later version. |
734 | 11 |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
94963
8971ddf55736
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79759
diff
changeset
|
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ |
734 | 19 |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
20 #ifdef emacs |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
3935
diff
changeset
|
21 #include <config.h> |
734 | 22 #include "lisp.h" |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
23 #endif |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
24 |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
25 #ifndef emacs |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
26 #include <stddef.h> |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
27 typedef size_t SIZE; |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
28 typedef void *POINTER; |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
29 #define EXCEEDS_LISP_PTR(x) 0 |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
30 #endif |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
31 |
1398
70d0cd4c5bff
mem_limits.h is now called mem-limits.h.
Roland McGrath <roland@gnu.org>
parents:
1392
diff
changeset
|
32 #include "mem-limits.h" |
734 | 33 |
69019
01f2a79bee28
[HAVE_GETRLIMIT]: Include sys/resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
34 #ifdef HAVE_GETRLIMIT |
01f2a79bee28
[HAVE_GETRLIMIT]: Include sys/resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
35 #include <sys/resource.h> |
01f2a79bee28
[HAVE_GETRLIMIT]: Include sys/resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
36 #endif |
01f2a79bee28
[HAVE_GETRLIMIT]: Include sys/resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
37 |
734 | 38 /* |
39 Level number of warnings already issued. | |
40 0 -- no warnings issued. | |
41 1 -- 75% warning already issued. | |
42 2 -- 85% warning already issued. | |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
43 3 -- 95% warning issued; keep warning frequently. |
734 | 44 */ |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
45 enum warnlevel { not_warned, warned_75, warned_85, warned_95 }; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
46 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
47 static enum warnlevel warnlevel; |
734 | 48 |
49 /* Function to call to issue a warning; | |
50 0 means don't issue them. */ | |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
51 static void (*warn_function) (); |
734 | 52 |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
53 /* Start of data space; can be changed by calling malloc_init. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
54 static POINTER data_space_start; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
55 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
56 /* Number of bytes of writable memory we can expect to be able to get. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
57 static unsigned long lim_data; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
58 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
59 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
60 #ifdef NO_LIM_DATA |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
61 static void |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
62 get_lim_data () |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
63 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
64 lim_data = -1; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
65 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
66 #else /* not NO_LIM_DATA */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
67 |
97252
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
68 #if defined (HAVE_GETRLIMIT) && defined (RLIMIT_AS) |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
69 static void |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
70 get_lim_data () |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
71 { |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
72 struct rlimit rlimit; |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
73 |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
74 getrlimit (RLIMIT_AS, &rlimit); |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
75 if (rlimit.rlim_cur == RLIM_INFINITY) |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
76 lim_data = -1; |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
77 else |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
78 lim_data = rlimit.rlim_cur; |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
79 } |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
80 |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
81 #else /* not HAVE_GETRLIMIT */ |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
82 |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
83 #ifdef USG |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
84 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
85 static void |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
86 get_lim_data () |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
87 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
88 extern long ulimit (); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
89 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
90 lim_data = -1; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
91 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
92 /* Use the ulimit call, if we seem to have it. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
93 #if !defined (ULIMIT_BREAK_VALUE) || defined (GNU_LINUX) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
94 lim_data = ulimit (3, 0); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
95 #endif |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
96 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
97 /* If that didn't work, just use the macro's value. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
98 #ifdef ULIMIT_BREAK_VALUE |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
99 if (lim_data == -1) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
100 lim_data = ULIMIT_BREAK_VALUE; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
101 #endif |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
102 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
103 lim_data -= (long) data_space_start; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
104 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
105 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
106 #else /* not USG */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
107 #ifdef WINDOWSNT |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
108 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
109 static void |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
110 get_lim_data () |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
111 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
112 extern unsigned long reserved_heap_size; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
113 lim_data = reserved_heap_size; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
114 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
115 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
116 #else |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
117 #if !defined (BSD4_2) && !defined (__osf__) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
118 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
119 #ifdef MSDOS |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
120 void |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
121 get_lim_data () |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
122 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
123 _go32_dpmi_meminfo info; |
97687
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
124 unsigned long lim1, lim2; |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
125 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
126 _go32_dpmi_get_free_memory_information (&info); |
97687
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
127 /* DPMI server of Windows NT and its descendants reports in |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
128 info.available_memory a much lower amount that is really |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
129 available, which causes bogus "past 95% of memory limit" |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
130 warnings. Try to overcome that via circumstantial evidence. */ |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
131 lim1 = info.available_memory; |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
132 lim2 = info.available_physical_pages; |
97687
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
133 /* DPMI Spec: "Fields that are unavailable will hold -1." */ |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
134 if ((long)lim1 == -1L) |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
135 lim1 = 0; |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
136 if ((long)lim2 == -1L) |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
137 lim2 = 0; |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
138 else |
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
139 lim2 *= 4096; |
97687
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
140 /* Surely, the available memory is at least what we have physically |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
141 available, right? */ |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
142 if (lim1 >= lim2) |
97687
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
143 lim_data = lim1; |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
144 else |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
145 lim_data = lim2; |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
146 /* Don't believe they will give us more that 0.5 GB. */ |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
147 if (lim_data > 512U * 1024U * 1024U) |
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
148 lim_data = 512U * 1024U * 1024U; |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
149 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
150 #else /* not MSDOS */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
151 static void |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
152 get_lim_data () |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
153 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
154 lim_data = vlimit (LIM_DATA, -1); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
155 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
156 #endif /* not MSDOS */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
157 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
158 #else /* BSD4_2 */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
159 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
160 static void |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
161 get_lim_data () |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
162 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
163 struct rlimit XXrlimit; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
164 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
165 getrlimit (RLIMIT_DATA, &XXrlimit); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
166 #ifdef RLIM_INFINITY |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
167 lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
168 #else |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
169 lim_data = XXrlimit.rlim_cur; /* soft limit */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
170 #endif |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
171 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
172 #endif /* BSD4_2 */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
173 #endif /* not WINDOWSNT */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
174 #endif /* not USG */ |
97252
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
175 #endif /* not HAVE_GETRLIMIT */ |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
176 #endif /* not NO_LIM_DATA */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
177 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
178 /* Verify amount of memory available, complaining if we're near the end. */ |
734 | 179 |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
180 static void |
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
181 check_memory_limits () |
734 | 182 { |
30062
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
183 #ifdef REL_ALLOC |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
184 extern POINTER (*real_morecore) (); |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
185 #endif |
1417
3a1576d52874
(check_memory_limits): Declare __morecore.
Roland McGrath <roland@gnu.org>
parents:
1416
diff
changeset
|
186 extern POINTER (*__morecore) (); |
3a1576d52874
(check_memory_limits): Declare __morecore.
Roland McGrath <roland@gnu.org>
parents:
1416
diff
changeset
|
187 |
734 | 188 register POINTER cp; |
3935
cecc2b59e875
(check_memory_limits): Use unsigned long to hold memory size values.
Richard M. Stallman <rms@gnu.org>
parents:
1417
diff
changeset
|
189 unsigned long five_percent; |
cecc2b59e875
(check_memory_limits): Use unsigned long to hold memory size values.
Richard M. Stallman <rms@gnu.org>
parents:
1417
diff
changeset
|
190 unsigned long data_size; |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
191 enum warnlevel new_warnlevel; |
734 | 192 |
193 if (lim_data == 0) | |
194 get_lim_data (); | |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
195 five_percent = lim_data / 20; |
734 | 196 |
197 /* Find current end of memory and issue warning if getting near max */ | |
30062
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
198 #ifdef REL_ALLOC |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
199 if (real_morecore) |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
200 cp = (char *) (*real_morecore) (0); |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
201 else |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
202 #endif |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
203 cp = (char *) (*__morecore) (0); |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
204 data_size = (char *) cp - (char *) data_space_start; |
734 | 205 |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
206 if (!warn_function) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
207 return; |
734 | 208 |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
209 /* What level of warning does current memory usage demand? */ |
97250
1533ce04b4b8
(check_memory_limits): Don't use getrlimit on cygwin. Don't use
Chong Yidong <cyd@stupidchicken.com>
parents:
94963
diff
changeset
|
210 new_warnlevel |
1533ce04b4b8
(check_memory_limits): Don't use getrlimit on cygwin. Don't use
Chong Yidong <cyd@stupidchicken.com>
parents:
94963
diff
changeset
|
211 = (data_size > five_percent * 19) ? warned_95 |
1533ce04b4b8
(check_memory_limits): Don't use getrlimit on cygwin. Don't use
Chong Yidong <cyd@stupidchicken.com>
parents:
94963
diff
changeset
|
212 : (data_size > five_percent * 17) ? warned_85 |
1533ce04b4b8
(check_memory_limits): Don't use getrlimit on cygwin. Don't use
Chong Yidong <cyd@stupidchicken.com>
parents:
94963
diff
changeset
|
213 : (data_size > five_percent * 15) ? warned_75 |
1533ce04b4b8
(check_memory_limits): Don't use getrlimit on cygwin. Don't use
Chong Yidong <cyd@stupidchicken.com>
parents:
94963
diff
changeset
|
214 : not_warned; |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
215 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
216 /* If we have gone up a level, give the appropriate warning. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
217 if (new_warnlevel > warnlevel || new_warnlevel == warned_95) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
218 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
219 warnlevel = new_warnlevel; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
220 switch (warnlevel) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
221 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
222 case warned_75: |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
223 (*warn_function) ("Warning: past 75% of memory limit"); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
224 break; |
734 | 225 |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
226 case warned_85: |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
227 (*warn_function) ("Warning: past 85% of memory limit"); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
228 break; |
734 | 229 |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
230 case warned_95: |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
231 (*warn_function) ("Warning: past 95% of memory limit"); |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
232 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
233 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
234 /* Handle going down in usage levels, with some hysteresis. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
235 else |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
236 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
237 /* If we go down below 70% full, issue another 75% warning |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
238 when we go up again. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
239 if (data_size < five_percent * 14) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
240 warnlevel = not_warned; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
241 /* If we go down below 80% full, issue another 85% warning |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
242 when we go up again. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
243 else if (warnlevel > warned_75 && data_size < five_percent * 16) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
244 warnlevel = warned_75; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
245 /* If we go down below 90% full, issue another 95% warning |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
246 when we go up again. */ |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
247 else if (warnlevel > warned_85 && data_size < five_percent * 18) |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
248 warnlevel = warned_85; |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
249 } |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
250 |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
251 if (EXCEEDS_LISP_PTR (cp)) |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
252 (*warn_function) ("Warning: memory in use exceeds lisp pointer size"); |
734 | 253 } |
69390
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
254 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
255 /* Enable memory usage warnings. |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
256 START says where the end of pure storage is. |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
257 WARNFUN specifies the function to call to issue a warning. */ |
734 | 258 |
259 void | |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
260 memory_warnings (start, warnfun) |
734 | 261 POINTER start; |
262 void (*warnfun) (); | |
263 { | |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
264 extern void (* __after_morecore_hook) (); /* From gmalloc.c */ |
734 | 265 |
266 if (start) | |
267 data_space_start = start; | |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
268 else |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
269 data_space_start = start_of_data (); |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
270 |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
271 warn_function = warnfun; |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
272 __after_morecore_hook = check_memory_limits; |
24366
274b79aeb3b7
(memory_warnings) [WINDOWSNT]: Reset lim_data on each
Andrew Innes <andrewi@gnu.org>
parents:
14186
diff
changeset
|
273 |
274b79aeb3b7
(memory_warnings) [WINDOWSNT]: Reset lim_data on each
Andrew Innes <andrewi@gnu.org>
parents:
14186
diff
changeset
|
274 /* Force data limit to be recalculated on each run. */ |
274b79aeb3b7
(memory_warnings) [WINDOWSNT]: Reset lim_data on each
Andrew Innes <andrewi@gnu.org>
parents:
14186
diff
changeset
|
275 lim_data = 0; |
734 | 276 } |
52401 | 277 |
278 /* arch-tag: eab04eda-1f69-447a-8d9f-95f0a3983ca5 | |
279 (do not change this comment) */ |