Mercurial > emacs
annotate src/mem-limits.h @ 14034:6ef59cdffc90
Comment change.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 05 Jan 1996 07:51:26 +0000 |
| parents | 8238a4262b6d |
| children | ee40177f6c68 |
| rev | line source |
|---|---|
| 486 | 1 /* Includes for memory limit warnings. |
|
12197
9cba6f0d9cd7
[_LIBC] (start_of_data): Define to &__data_start for GNU libc.
Roland McGrath <roland@gnu.org>
parents:
9791
diff
changeset
|
2 Copyright (C) 1990, 1993, 1994, 1995 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 | |
| 18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
| 19 | |
|
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
20 #ifdef MSDOS |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
21 #include <dpmi.h> |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
22 #endif |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
23 |
|
5547
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
24 /* 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
|
25 #include <sys/types.h> |
|
261bf09dc10a
Include <sys/types.h> before <sys/resource.h>.
Roland McGrath <roland@gnu.org>
parents:
5497
diff
changeset
|
26 |
|
4229
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
27 #ifdef _LIBC |
|
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
28 |
|
edf8c9e14e02
[_LIBC]: Just include <sys/resource.h>, and skip hairy #ifdef mess.
Roland McGrath <roland@gnu.org>
parents:
3370
diff
changeset
|
29 #include <sys/resource.h> |
| 4254 | 30 #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
|
31 |
|
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
|
32 /* Old Linux startup code won't define __data_start. */ |
| 13564 | 33 extern int etext, __data_start; weak_symbol (__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
|
34 #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
|
35 |
| 12216 | 36 #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
|
37 |
|
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
38 #if defined (__osf__) && (defined (__mips) || defined (mips) || defined(__alpha)) |
| 3055 | 39 #include <sys/time.h> |
| 40 #include <sys/resource.h> | |
| 41 #endif | |
| 42 | |
|
3370
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
43 #ifdef __bsdi__ |
|
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
44 #define BSD4_2 |
|
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
45 #endif |
|
2df248d76c58
[__bsdi__]: Define BSD4_2.
Richard M. Stallman <rms@gnu.org>
parents:
3055
diff
changeset
|
46 |
| 486 | 47 #ifndef BSD4_2 |
| 48 #ifndef USG | |
|
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
49 #ifndef MSDOS |
|
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
50 #ifndef WINDOWSNT |
| 486 | 51 #include <sys/vlimit.h> |
|
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
52 #endif /* not WINDOWSNT */ |
|
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
53 #endif /* not MSDOS */ |
| 486 | 54 #endif /* not USG */ |
| 55 #else /* if BSD4_2 */ | |
| 56 #include <sys/time.h> | |
| 57 #include <sys/resource.h> | |
| 58 #endif /* BSD4_2 */ | |
| 59 | |
|
1393
d2ae5897e43c
[!emacs]: Don't define POINTER, SIZE or NULL.
Richard M. Stallman <rms@gnu.org>
parents:
734
diff
changeset
|
60 #ifdef emacs |
| 575 | 61 /* The important properties of this type are that 1) it's a pointer, and |
| 62 2) arithmetic on it should work as if the size of the object pointed | |
| 63 to has a size of 1. */ | |
| 486 | 64 #ifdef __STDC__ |
| 65 typedef void *POINTER; | |
| 66 #else | |
| 67 typedef char *POINTER; | |
| 68 #endif | |
| 69 | |
| 70 typedef unsigned long SIZE; | |
| 71 | |
| 72 #ifdef NULL | |
| 73 #undef NULL | |
| 74 #endif | |
| 75 #define NULL ((POINTER) 0) | |
| 76 | |
| 77 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
|
78 #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
|
79 #define EXCEEDS_LISP_PTR(ptr) \ |
|
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
80 (((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
|
81 #else |
|
8830
3f019f2a13f9
Check for __alpha, in __osf__ conditional.
Richard M. Stallman <rms@gnu.org>
parents:
7010
diff
changeset
|
82 #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
|
83 #endif |
| 486 | 84 |
| 85 #ifdef BSD | |
| 86 #ifndef DATA_SEG_BITS | |
| 734 | 87 extern char etext; |
| 486 | 88 #define start_of_data() &etext |
| 89 #endif | |
| 90 #endif | |
| 91 | |
|
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
|
92 #else /* not emacs */ |
| 734 | 93 extern char etext; |
| 486 | 94 #define start_of_data() &etext |
| 12216 | 95 #endif /* not emacs */ |
| 486 | 96 |
| 12216 | 97 #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
|
98 |
| 486 | 99 |
| 100 /* start of data space; can be changed by calling malloc_init */ | |
| 101 static POINTER data_space_start; | |
| 102 | |
| 103 /* Number of bytes of writable memory we can expect to be able to get */ | |
| 104 static unsigned int lim_data; | |
| 105 | |
|
7010
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
106 #ifdef NO_LIM_DATA |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
107 static void |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
108 get_lim_data () |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
109 { |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
110 lim_data = -1; |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
111 } |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
112 #else /* not NO_LIM_DATA */ |
|
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
113 |
| 486 | 114 #ifdef USG |
| 115 | |
|
1450
a321ed0fa3ae
(get_lim_data): Make it static.
Richard M. Stallman <rms@gnu.org>
parents:
1399
diff
changeset
|
116 static void |
| 486 | 117 get_lim_data () |
| 118 { | |
| 119 extern long ulimit (); | |
|
2917
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
120 |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
121 lim_data = -1; |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
122 |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
123 /* Use the ulimit call, if we seem to have it. */ |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
124 #if !defined (ULIMIT_BREAK_VALUE) || defined (LINUX) |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
125 lim_data = ulimit (3, 0); |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
126 #endif |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
127 |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
128 /* If that didn't work, just use the macro's value. */ |
| 486 | 129 #ifdef ULIMIT_BREAK_VALUE |
|
2917
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
130 if (lim_data == -1) |
|
725698689fbd
Some more changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
1592
diff
changeset
|
131 lim_data = ULIMIT_BREAK_VALUE; |
| 486 | 132 #endif |
| 133 | |
| 134 lim_data -= (long) data_space_start; | |
| 135 } | |
| 136 | |
| 137 #else /* not USG */ | |
|
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
138 #ifdef WINDOWSNT |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
139 |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
140 static void |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
141 get_lim_data () |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
142 { |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
143 extern unsigned long data_region_size; |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
144 lim_data = data_region_size; |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
145 } |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
146 |
|
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
147 #else |
|
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
148 #if !defined (BSD4_2) && !defined (__osf__) |
| 486 | 149 |
|
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
150 #ifdef MSDOS |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
151 void |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
152 get_lim_data () |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
153 { |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
154 _go32_dpmi_meminfo info; |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
155 |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
156 _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
|
157 lim_data = info.available_memory; |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
158 } |
|
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
159 #else /* not MSDOS */ |
|
1450
a321ed0fa3ae
(get_lim_data): Make it static.
Richard M. Stallman <rms@gnu.org>
parents:
1399
diff
changeset
|
160 static void |
| 486 | 161 get_lim_data () |
| 162 { | |
| 163 lim_data = vlimit (LIM_DATA, -1); | |
| 164 } | |
|
5497
525a2027ec95
[MSDOS] (get_lim_data): Use go32 call.
Richard M. Stallman <rms@gnu.org>
parents:
4254
diff
changeset
|
165 #endif /* not MSDOS */ |
| 486 | 166 |
| 167 #else /* BSD4_2 */ | |
| 168 | |
|
1450
a321ed0fa3ae
(get_lim_data): Make it static.
Richard M. Stallman <rms@gnu.org>
parents:
1399
diff
changeset
|
169 static void |
| 486 | 170 get_lim_data () |
| 171 { | |
| 172 struct rlimit XXrlimit; | |
| 173 | |
| 174 getrlimit (RLIMIT_DATA, &XXrlimit); | |
| 175 #ifdef RLIM_INFINITY | |
| 176 lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */ | |
| 177 #else | |
| 178 lim_data = XXrlimit.rlim_cur; /* soft limit */ | |
| 179 #endif | |
| 180 } | |
| 181 #endif /* BSD4_2 */ | |
|
9791
068c89ed6765
[WINDOWSNT]: Don't include vlimit.h.
Richard M. Stallman <rms@gnu.org>
parents:
8830
diff
changeset
|
182 #endif /* not WINDOWSNT */ |
| 486 | 183 #endif /* not USG */ |
|
7010
34c91bb33ed0
(get_lim_data): Handle NO_LIM_DATA.
Richard M. Stallman <rms@gnu.org>
parents:
5547
diff
changeset
|
184 #endif /* not NO_LIM_DATA */ |
