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