Mercurial > emacs
annotate src/mem-limits.h @ 50837:1bd0d75dbaa9
(byte-compile-file): Fix comment
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 06 May 2003 05:09:48 +0000 |
parents | 99be3a1e2589 |
children | c2c7a2898903 d7ddb3e565de |
rev | line source |
---|---|
486 | 1 /* Includes for memory limit warnings. |
15634
08bcd5d2c8ab
[_LIBC]: Use weak_extern instead of weak_symbol for __data_start.
Roland McGrath <roland@gnu.org>
parents:
14186
diff
changeset
|
2 Copyright (C) 1990, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. |
486 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
3370
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
486 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13564
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13564
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
486 | 20 |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
21 #ifdef MSDOS |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
22 #include <dpmi.h> |
46950 | 23 extern int etext; |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
24 #endif |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
25 |
5547
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
26 /* Some systems need this before <sys/resource.h>. */ |
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
27 #include <sys/types.h> |
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
28 |
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
29 #ifdef _LIBC |
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
30 |
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
31 #include <sys/resource.h> |
4254 | 32 #define BSD4_2 /* Tell code below to use getrlimit. */ |
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
33 |
13563
c011026c071d
[_LIBC] (start_of_data): Use weak ref to __data_start; use &etext if not
Roland McGrath <roland@gnu.org>
parents:
12216
diff
changeset
|
34 /* Old Linux startup code won't define __data_start. */ |
15634
08bcd5d2c8ab
[_LIBC]: Use weak_extern instead of weak_symbol for __data_start.
Roland McGrath <roland@gnu.org>
parents:
14186
diff
changeset
|
35 extern int etext, __data_start; weak_extern (__data_start) |
13563
c011026c071d
[_LIBC] (start_of_data): Use weak ref to __data_start; use &etext if not
Roland McGrath <roland@gnu.org>
parents:
12216
diff
changeset
|
36 #define start_of_data() (&__data_start ?: &etext) |
12197
9cba6f0d9cd7
[_LIBC] (start_of_data): Define to &__data_start for GNU libc.
Roland McGrath <roland@gnu.org>
parents:
9791
diff
changeset
|
37 |
12216 | 38 #else /* not _LIBC */ |
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
39 |
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
40 #if defined (__osf__) && (defined (__mips) || defined (mips) || defined(__alpha)) |
3055 | 41 #include <sys/time.h> |
42 #include <sys/resource.h> | |
43 #endif | |
44 | |
3370
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
45 #ifdef __bsdi__ |
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
46 #define BSD4_2 |
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
47 #endif |
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
48 |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
49 #ifdef CYGWIN |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
50 #define BSD4_2 |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
51 #endif |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
46950
diff
changeset
|
52 |
486 | 53 #ifndef BSD4_2 |
54 #ifndef USG | |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
55 #ifndef MSDOS |
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
56 #ifndef WINDOWSNT |
486 | 57 #include <sys/vlimit.h> |
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
58 #endif /* not WINDOWSNT */ |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
59 #endif /* not MSDOS */ |
486 | 60 #endif /* not USG */ |
61 #else /* if BSD4_2 */ | |
62 #include <sys/time.h> | |
63 #include <sys/resource.h> | |
64 #endif /* BSD4_2 */ | |
65 | |
1393
d2ae5897e43c
[!emacs]: Don't define POINTER, SIZE or NULL.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
66 #ifdef emacs |
575 | 67 /* The important properties of this type are that 1) it's a pointer, and |
68 2) arithmetic on it should work as if the size of the object pointed | |
69 to has a size of 1. */ | |
28055 | 70 typedef POINTER_TYPE *POINTER; |
486 | 71 |
72 typedef unsigned long SIZE; | |
73 | |
74 #ifdef NULL | |
75 #undef NULL | |
76 #endif | |
77 #define NULL ((POINTER) 0) | |
78 | |
79 extern POINTER start_of_data (); | |
1592
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
80 #ifdef DATA_SEG_BITS |
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
81 #define EXCEEDS_LISP_PTR(ptr) \ |
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
82 (((EMACS_UINT) (ptr) & ~DATA_SEG_BITS) >> VALBITS) |
1592
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
83 #else |
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
84 #define EXCEEDS_LISP_PTR(ptr) ((EMACS_UINT) (ptr) >> VALBITS) |
1592
613783a3f00c
* mem-limits.h [DATA_SEG_BITS] (EXCEEDS_LISP_PTR): Remember to
Jim Blandy <jimb@redhat.com>
parents:
1450
diff
changeset
|
85 #endif |
486 | 86 |
46652
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
87 #ifdef DATA_START |
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
88 #define start_of_data() ((char *)DATA_START) |
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
89 #endif |
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
90 |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
15643
diff
changeset
|
91 #ifdef BSD_SYSTEM |
486 | 92 #ifndef DATA_SEG_BITS |
46652
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
93 #ifndef DATA_START |
734 | 94 extern char etext; |
486 | 95 #define start_of_data() &etext |
96 #endif | |
97 #endif | |
46652
243b781b4ba5
(start_of_data): If DATA_START is defined, prefer
Ken Raeburn <raeburn@raeburn.org>
parents:
41969
diff
changeset
|
98 #endif |
486 | 99 |
13563
c011026c071d
[_LIBC] (start_of_data): Use weak ref to __data_start; use &etext if not
Roland McGrath <roland@gnu.org>
parents:
12216
diff
changeset
|
100 #else /* not emacs */ |
734 | 101 extern char etext; |
486 | 102 #define start_of_data() &etext |
12216 | 103 #endif /* not emacs */ |
486 | 104 |
12216 | 105 #endif /* not _LIBC */ |
12197
9cba6f0d9cd7
[_LIBC] (start_of_data): Define to &__data_start for GNU libc.
Roland McGrath <roland@gnu.org>
parents:
9791
diff
changeset
|
106 |
486 | 107 |
108 /* start of data space; can be changed by calling malloc_init */ | |
109 static POINTER data_space_start; | |
110 | |
111 /* Number of bytes of writable memory we can expect to be able to get */ | |
15643
3c6865102f3d
(lim_data): Make this an unsigned long.
Karl Heuer <kwzh@gnu.org>
parents:
15634
diff
changeset
|
112 static unsigned long lim_data; |
486 | 113 |
7010
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
114 #ifdef NO_LIM_DATA |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
115 static void |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
116 get_lim_data () |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
117 { |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
118 lim_data = -1; |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
119 } |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
120 #else /* not NO_LIM_DATA */ |
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
121 |
486 | 122 #ifdef USG |
123 | |
1450
a321ed0fa3ae
(get_lim_data): Make it static.
Richard M. Stallman <rms@gnu.org>
parents:
1399
diff
changeset
|
124 static void |
486 | 125 get_lim_data () |
126 { | |
127 extern long ulimit (); | |
2917
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
128 |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
129 lim_data = -1; |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
130 |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
131 /* Use the ulimit call, if we seem to have it. */ |
41969
e669966d496e
Test GNU_LINUX, not LINUX.
Richard M. Stallman <rms@gnu.org>
parents:
28055
diff
changeset
|
132 #if !defined (ULIMIT_BREAK_VALUE) || defined (GNU_LINUX) |
2917
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
133 lim_data = ulimit (3, 0); |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
134 #endif |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
135 |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
136 /* If that didn't work, just use the macro's value. */ |
486 | 137 #ifdef ULIMIT_BREAK_VALUE |
2917
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
138 if (lim_data == -1) |
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
139 lim_data = ULIMIT_BREAK_VALUE; |
486 | 140 #endif |
141 | |
142 lim_data -= (long) data_space_start; | |
143 } | |
144 | |
145 #else /* not USG */ | |
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
146 #ifdef WINDOWSNT |
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
147 |
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
148 static void |
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
149 get_lim_data () |
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
150 { |
24101
95829fe50ff7
(get_lim_data): Use reserved_heap_size instead of
Andrew Innes <andrewi@gnu.org>
parents:
16220
diff
changeset
|
151 extern unsigned long reserved_heap_size; |
95829fe50ff7
(get_lim_data): Use reserved_heap_size instead of
Andrew Innes <andrewi@gnu.org>
parents:
16220
diff
changeset
|
152 lim_data = reserved_heap_size; |
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
153 } |
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
154 |
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
155 #else |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
156 #if !defined (BSD4_2) && !defined (__osf__) |
486 | 157 |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
158 #ifdef MSDOS |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
159 void |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
160 get_lim_data () |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
161 { |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
162 _go32_dpmi_meminfo info; |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
163 |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
164 _go32_dpmi_get_free_memory_information (&info); |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
165 lim_data = info.available_memory; |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
166 } |
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
167 #else /* not MSDOS */ |
1450
a321ed0fa3ae
(get_lim_data): Make it static.
Richard M. Stallman <rms@gnu.org>
parents:
1399
diff
changeset
|
168 static void |
486 | 169 get_lim_data () |
170 { | |
171 lim_data = vlimit (LIM_DATA, -1); | |
172 } | |
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
173 #endif /* not MSDOS */ |
486 | 174 |
175 #else /* BSD4_2 */ | |
176 | |
1450
a321ed0fa3ae
(get_lim_data): Make it static.
Richard M. Stallman <rms@gnu.org>
parents:
1399
diff
changeset
|
177 static void |
486 | 178 get_lim_data () |
179 { | |
180 struct rlimit XXrlimit; | |
181 | |
182 getrlimit (RLIMIT_DATA, &XXrlimit); | |
183 #ifdef RLIM_INFINITY | |
184 lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */ | |
185 #else | |
186 lim_data = XXrlimit.rlim_cur; /* soft limit */ | |
187 #endif | |
188 } | |
189 #endif /* BSD4_2 */ | |
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
190 #endif /* not WINDOWSNT */ |
486 | 191 #endif /* not USG */ |
7010
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
192 #endif /* not NO_LIM_DATA */ |