Mercurial > emacs
annotate src/vm-limit.c @ 110914:ccdc694ce7bd
More cleanups and minor fixes for Customize.
* cus-edit.el (custom-face-edit-fix-value): Use
custom-fix-face-spec.
* custom.el (custom-push-theme): Cleanup (use cond).
(disable-theme): Recompute the saved-face property.
(custom-theme-recalc-face): Follow face alias before setting prop.
* custom.el (custom-fix-face-spec): New function; code moved from
custom-face-edit-fix-value.
(custom-push-theme): Use it when checking if a face has been
changed outside customize.
(custom-available-themes): New function.
(load-theme): Use it.
* image.el (image-checkbox-checked, image-checkbox-unchecked): New
variables, containing checkbox images.
* startup.el (fancy-startup-tail):
* wid-edit.el (checkbox): Use them.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Mon, 11 Oct 2010 00:49:59 -0400 |
parents | b9752b72e1ee |
children | 417b1e4d63cd |
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, |
106815 | 3 2008, 2009, 2010 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 |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
3935
diff
changeset
|
20 #include <config.h> |
105669
68dd71358159
* alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
100864
diff
changeset
|
21 #include <setjmp.h> |
734 | 22 #include "lisp.h" |
1398
70d0cd4c5bff
mem_limits.h is now called mem-limits.h.
Roland McGrath <roland@gnu.org>
parents:
1392
diff
changeset
|
23 #include "mem-limits.h" |
734 | 24 |
25 /* | |
26 Level number of warnings already issued. | |
27 0 -- no warnings issued. | |
28 1 -- 75% warning already issued. | |
29 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
|
30 3 -- 95% warning issued; keep warning frequently. |
734 | 31 */ |
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
|
32 enum warnlevel { not_warned, warned_75, warned_85, warned_95 }; |
109576
faeb6f3341b1
Fix some stuff that didn't compile.
Jan D. <jan.h.d@swipnet.se>
parents:
109575
diff
changeset
|
33 static enum warnlevel warnlevel; |
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
|
34 |
109576
faeb6f3341b1
Fix some stuff that didn't compile.
Jan D. <jan.h.d@swipnet.se>
parents:
109575
diff
changeset
|
35 typedef POINTER_TYPE *POINTER; |
734 | 36 |
37 /* Function to call to issue a warning; | |
38 0 means don't issue them. */ | |
109313
e856a274549b
Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents:
109168
diff
changeset
|
39 static void (*warn_function) (const char *); |
734 | 40 |
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
|
41 /* 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
|
42 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
|
43 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
44 /* 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
|
45 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
|
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 |
97252
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
48 #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
|
49 static void |
109144
7dceae91724c
Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109097
diff
changeset
|
50 get_lim_data (void) |
97252
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
51 { |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
52 struct rlimit rlimit; |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
53 |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
54 getrlimit (RLIMIT_AS, &rlimit); |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
55 if (rlimit.rlim_cur == RLIM_INFINITY) |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
56 lim_data = -1; |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
57 else |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
58 lim_data = rlimit.rlim_cur; |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
59 } |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
60 |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
61 #else /* not HAVE_GETRLIMIT */ |
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
62 |
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
|
63 #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
|
64 |
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 static void |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109313
diff
changeset
|
66 get_lim_data (void) |
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
|
67 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
68 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
|
69 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
70 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
|
71 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
72 /* 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
|
73 #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
|
74 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
|
75 #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
|
76 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
77 /* 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
|
78 #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
|
79 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
|
80 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
|
81 #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
|
82 |
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 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
|
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 |
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 #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
|
87 #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
|
88 |
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 static void |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109313
diff
changeset
|
90 get_lim_data (void) |
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
|
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 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
|
93 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
|
94 } |
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 |
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 #else |
109575
ad36da121d41
* src/vm-limit.c: Do not include sys/resource.h, mem-limits.h does it.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109537
diff
changeset
|
97 #if !defined (BSD4_2) && !defined (CYGWIN) |
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
|
98 |
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 #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
|
100 void |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109313
diff
changeset
|
101 get_lim_data (void) |
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
|
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 _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
|
104 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
|
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 _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
|
107 /* 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
|
108 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
|
109 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
|
110 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
|
111 lim1 = info.available_memory; |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
112 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
|
113 /* 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
|
114 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
|
115 lim1 = 0; |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
116 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
|
117 lim2 = 0; |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
118 else |
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
119 lim2 *= 4096; |
97687
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
120 /* 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
|
121 available, right? */ |
99457
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
122 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
|
123 lim_data = lim1; |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
124 else |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
125 lim_data = lim2; |
05ccdea3b63e
(get_lim_data) [MSDOS]: Use alternative methods of estimating available memory.
Eli Zaretskii <eliz@gnu.org>
parents:
97252
diff
changeset
|
126 /* 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
|
127 if (lim_data > 512U * 1024U * 1024U) |
439bc48615be
(get_lim_data): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
97687
diff
changeset
|
128 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
|
129 } |
100861
c089527800d9
(ret_lim_data) [MSDOS]: New function.
Eli Zaretskii <eliz@gnu.org>
parents:
99457
diff
changeset
|
130 |
c089527800d9
(ret_lim_data) [MSDOS]: New function.
Eli Zaretskii <eliz@gnu.org>
parents:
99457
diff
changeset
|
131 unsigned long |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109313
diff
changeset
|
132 ret_lim_data (void) |
100861
c089527800d9
(ret_lim_data) [MSDOS]: New function.
Eli Zaretskii <eliz@gnu.org>
parents:
99457
diff
changeset
|
133 { |
c089527800d9
(ret_lim_data) [MSDOS]: New function.
Eli Zaretskii <eliz@gnu.org>
parents:
99457
diff
changeset
|
134 get_lim_data (); |
c089527800d9
(ret_lim_data) [MSDOS]: New function.
Eli Zaretskii <eliz@gnu.org>
parents:
99457
diff
changeset
|
135 return lim_data; |
c089527800d9
(ret_lim_data) [MSDOS]: New function.
Eli Zaretskii <eliz@gnu.org>
parents:
99457
diff
changeset
|
136 } |
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
|
137 #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
|
138 static void |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109313
diff
changeset
|
139 get_lim_data (void) |
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
|
140 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
141 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
|
142 } |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
143 #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
|
144 |
109575
ad36da121d41
* src/vm-limit.c: Do not include sys/resource.h, mem-limits.h does it.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109537
diff
changeset
|
145 #else /* BSD4_2 || CYGWIN */ |
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
|
146 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
147 static void |
109480
d12162869c07
Convert some more functions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109313
diff
changeset
|
148 get_lim_data (void) |
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 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
|
151 |
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 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
|
153 #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
|
154 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
|
155 #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
|
156 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
|
157 #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
|
158 } |
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 #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
|
160 #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
|
161 #endif /* not USG */ |
97252
c2be97b488c4
(get_lim_data) [HAVE_GETRLIMIT && RLIMIT_AS]: Define.
Andreas Schwab <schwab@suse.de>
parents:
97251
diff
changeset
|
162 #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
|
163 |
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 /* Verify amount of memory available, complaining if we're near the end. */ |
734 | 165 |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
166 static void |
109144
7dceae91724c
Convert most remaining function definitions to standard C.
Juanma Barranquero <lekktu@gmail.com>
parents:
109097
diff
changeset
|
167 check_memory_limits (void) |
734 | 168 { |
30062
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
169 #ifdef REL_ALLOC |
109537
b8b5b9f67570
* vm-limit.c (check_memory_limits): Fix previous change; accidentally reverted an earlier change.
Ken Brown <kbrown@cornell.edu>
parents:
109536
diff
changeset
|
170 extern POINTER (*real_morecore) (SIZE); |
30062
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
171 #endif |
109537
b8b5b9f67570
* vm-limit.c (check_memory_limits): Fix previous change; accidentally reverted an earlier change.
Ken Brown <kbrown@cornell.edu>
parents:
109536
diff
changeset
|
172 extern POINTER (*__morecore) (SIZE); |
1417
3a1576d52874
(check_memory_limits): Declare __morecore.
Roland McGrath <roland@gnu.org>
parents:
1416
diff
changeset
|
173 |
734 | 174 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
|
175 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
|
176 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
|
177 enum warnlevel new_warnlevel; |
734 | 178 |
179 if (lim_data == 0) | |
180 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
|
181 five_percent = lim_data / 20; |
734 | 182 |
183 /* 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
|
184 #ifdef REL_ALLOC |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
185 if (real_morecore) |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
186 cp = (char *) (*real_morecore) (0); |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
187 else |
9a026d470bc9
(check_memory_limits) [REL_ALLOC]: Use real_morecore
Andrew Innes <andrewi@gnu.org>
parents:
24366
diff
changeset
|
188 #endif |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
189 cp = (char *) (*__morecore) (0); |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
190 data_size = (char *) cp - (char *) data_space_start; |
734 | 191 |
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
|
192 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
|
193 return; |
734 | 194 |
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
|
195 /* 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
|
196 new_warnlevel |
1533ce04b4b8
(check_memory_limits): Don't use getrlimit on cygwin. Don't use
Chong Yidong <cyd@stupidchicken.com>
parents:
94963
diff
changeset
|
197 = (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
|
198 : (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
|
199 : (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
|
200 : 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
|
201 |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
202 /* 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
|
203 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
|
204 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
205 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
|
206 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
|
207 { |
7e58bc915ffe
(get_lim_data, lim_data, data_space_start): Moved from mem-limits.h.
Richard M. Stallman <rms@gnu.org>
parents:
69019
diff
changeset
|
208 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
|
209 (*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
|
210 break; |
734 | 211 |
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
|
212 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
|
213 (*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
|
214 break; |
734 | 215 |
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
|
216 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
|
217 (*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
|
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 } |
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 /* 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
|
221 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
|
222 { |
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 /* 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
|
224 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
|
225 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
|
226 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
|
227 /* 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
|
228 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
|
229 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
|
230 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
|
231 /* 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
|
232 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
|
233 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
|
234 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
|
235 } |
1392
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
236 |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
237 if (EXCEEDS_LISP_PTR (cp)) |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
238 (*warn_function) ("Warning: memory in use exceeds lisp pointer size"); |
734 | 239 } |
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
|
240 |
109168
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
241 #if !defined(CANNOT_DUMP) || !defined(SYSTEM_MALLOC) |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
242 /* Some systems that cannot dump also cannot implement these. */ |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
243 |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
244 /* |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
245 * Return the address of the start of the data segment prior to |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
246 * doing an unexec. After unexec the return value is undefined. |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
247 * See crt0.c for further information and definition of data_start. |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
248 * |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
249 * Apparently, on BSD systems this is etext at startup. On |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
250 * USG systems (swapping) this is highly mmu dependent and |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
251 * is also dependent on whether or not the program is running |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
252 * with shared text. Generally there is a (possibly large) |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
253 * gap between end of text and start of data with shared text. |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
254 * |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
255 */ |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
256 |
109576
faeb6f3341b1
Fix some stuff that didn't compile.
Jan D. <jan.h.d@swipnet.se>
parents:
109575
diff
changeset
|
257 char * |
109168
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
258 start_of_data (void) |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
259 { |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
260 #ifdef BSD_SYSTEM |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
261 extern char etext; |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
262 return (POINTER)(&etext); |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
263 #elif defined DATA_START |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
264 return ((POINTER) DATA_START); |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
265 #elif defined ORDINARY_LINK |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
266 /* |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
267 * This is a hack. Since we're not linking crt0.c or pre_crt0.c, |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
268 * data_start isn't defined. We take the address of environ, which |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
269 * is known to live at or near the start of the system crt0.c, and |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
270 * we don't sweat the handful of bytes that might lose. |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
271 */ |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
272 extern char **environ; |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
273 return ((POINTER) &environ); |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
274 #else |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
275 extern int data_start; |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
276 return ((POINTER) &data_start); |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
277 #endif |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
278 } |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
279 #endif /* (not CANNOT_DUMP or not SYSTEM_MALLOC) */ |
fb5779a6cf4b
Simplify start_of_data, start_of_text and related code.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109145
diff
changeset
|
280 |
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
|
281 /* 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
|
282 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
|
283 WARNFUN specifies the function to call to issue a warning. */ |
734 | 284 |
285 void | |
109313
e856a274549b
Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents:
109168
diff
changeset
|
286 memory_warnings (POINTER start, void (*warnfun) (const char *)) |
734 | 287 { |
109145
d0090a8b66c3
Convert function definitions and declarations to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
109144
diff
changeset
|
288 extern void (* __after_morecore_hook) (void); /* From gmalloc.c */ |
734 | 289 |
290 if (start) | |
291 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
|
292 else |
ad64a94cd81c
(morecore_with_warning): Reduce warnlevel when usage drops far enough.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
293 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
|
294 |
1400
af08281c0cbe
(warnfunction): Renamed to warn_function (was used inconsistently).
Roland McGrath <roland@gnu.org>
parents:
1398
diff
changeset
|
295 warn_function = warnfun; |
1416
60bb5e719468
(morecore_with_warning): Removed.
Roland McGrath <roland@gnu.org>
parents:
1400
diff
changeset
|
296 __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
|
297 |
274b79aeb3b7
(memory_warnings) [WINDOWSNT]: Reset lim_data on each
Andrew Innes <andrewi@gnu.org>
parents:
14186
diff
changeset
|
298 /* 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
|
299 lim_data = 0; |
734 | 300 } |
52401 | 301 |
302 /* arch-tag: eab04eda-1f69-447a-8d9f-95f0a3983ca5 | |
303 (do not change this comment) */ |