428
+ − 1 /* Includes for memory limit warnings.
+ − 2 Copyright (C) 1990, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
+ − 3
+ − 4 This file is part of XEmacs.
+ − 5
+ − 6 XEmacs is free software; you can redistribute it and/or modify it
+ − 7 under the terms of the GNU General Public License as published by the
+ − 8 Free Software Foundation; either version 2, or (at your option) any
+ − 9 later version.
+ − 10
+ − 11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
+ − 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ − 13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+ − 14 for more details.
+ − 15
+ − 16 You should have received a copy of the GNU General Public License
+ − 17 along with XEmacs; see the file COPYING. If not, write to
+ − 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 19 Boston, MA 02111-1307, USA. */
+ − 20
+ − 21 /* Synched up with: FSF 19.30. */
+ − 22
2263
+ − 23 /* Subsequently cleaned up and reorganised, made to use configure. */
428
+ − 24
440
+ − 25 #ifndef INCLUDED_mem_limits_h_
+ − 26 #define INCLUDED_mem_limits_h_
428
+ − 27
+ − 28 #ifdef HAVE_CONFIG_H
+ − 29 #include <config.h>
+ − 30 #endif
+ − 31
+ − 32 #ifdef HAVE_ULIMIT_H
+ − 33 #include <ulimit.h>
+ − 34 #endif
+ − 35
2263
+ − 36 #ifdef HAVE_SYS_RESOURCE_H
+ − 37 /* Some systems need either sys/types.h or sys/time.h before <sys/resource.h>. */
428
+ − 38 #include <sys/types.h>
2263
+ − 39 #include <sys/time.h>
+ − 40 #include <sys/resource.h>
+ − 41 #endif
+ − 42
+ − 43 #ifdef HAVE_SYS_VLIMIT_H
+ − 44 #include <sys/vlimit.h>
+ − 45 #endif
428
+ − 46
+ − 47 #ifdef _LIBC
+ − 48
+ − 49 /* Old Linux startup code won't define __data_start. */
+ − 50 extern int etext, __data_start; weak_symbol (__data_start)
+ − 51 #define start_of_data() (&__data_start ?: &etext)
+ − 52
+ − 53 #else /* not GNU libc */
+ − 54
+ − 55 #ifdef emacs
+ − 56 typedef void *POINTER;
+ − 57
442
+ − 58 #ifndef CYGWIN
428
+ − 59 typedef unsigned long SIZE;
+ − 60 #endif
+ − 61
+ − 62 extern POINTER start_of_data (void);
+ − 63 #define EXCEEDS_LISP_PTR(ptr) 0
+ − 64
+ − 65 #ifdef BSD
+ − 66 extern int etext;
+ − 67 #define start_of_data() &etext
+ − 68 #endif
+ − 69
+ − 70 #else /* not emacs */
+ − 71 extern char etext;
+ − 72 #define start_of_data() &etext
+ − 73 #endif /* not emacs */
+ − 74
+ − 75 #endif /* not _LIBC */
+ − 76
+ − 77
+ − 78
+ − 79 /* start of data space; can be changed by calling malloc_init */
+ − 80 static POINTER data_space_start;
+ − 81
+ − 82 /* Number of bytes of writable memory we can expect to be able to get */
2132
+ − 83 extern unsigned long lim_data;
428
+ − 84
2263
+ − 85 /* The implementation of get_lim_data() is very machine dependent. */
+ − 86
442
+ − 87 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
428
+ − 88 extern unsigned long static_heap_size;
1632
+ − 89 extern MODULE_API int initialized;
2263
+ − 90
428
+ − 91 static void
+ − 92 get_lim_data (void)
+ − 93 {
+ − 94 if (!initialized)
+ − 95 {
2132
+ − 96 lim_data = (unsigned long) -1; /* static_heap_size; */
428
+ − 97 }
+ − 98 else
+ − 99 {
2132
+ − 100 lim_data = (unsigned long) -1;
428
+ − 101 }
+ − 102 }
2263
+ − 103
+ − 104 #elif defined(NO_LIM_DATA)
+ − 105
428
+ − 106 static void
+ − 107 get_lim_data (void)
+ − 108 {
2132
+ − 109 lim_data = (unsigned long) -1;
428
+ − 110 }
2263
+ − 111
+ − 112 #elif defined(HAVE_GETRLIMIT)
+ − 113
+ − 114 static void
+ − 115 get_lim_data (void)
+ − 116 {
+ − 117 struct rlimit XXrlimit;
428
+ − 118
2263
+ − 119 getrlimit (RLIMIT_DATA, &XXrlimit);
+ − 120 #ifdef RLIM_INFINITY
+ − 121 lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */
+ − 122 #else
+ − 123 lim_data = XXrlimit.rlim_cur; /* soft limit */
+ − 124 #endif
+ − 125 }
+ − 126
+ − 127 #elif defined(HAVE_ULIMIT)
428
+ − 128
+ − 129 static void
+ − 130 get_lim_data (void)
+ − 131 {
2132
+ − 132 lim_data = (unsigned long) -1;
428
+ − 133
+ − 134 /* Use the ulimit call, if we seem to have it. */
2132
+ − 135 #if !defined (ULIMIT_BREAK_VALUE)
428
+ − 136 lim_data = ulimit (3, 0);
+ − 137 #endif
+ − 138
+ − 139 /* If that didn't work, just use the macro's value. */
+ − 140 #ifdef ULIMIT_BREAK_VALUE
2132
+ − 141 if (lim_data == (unsigned long) -1)
428
+ − 142 lim_data = ULIMIT_BREAK_VALUE;
+ − 143 #endif
+ − 144
+ − 145 lim_data -= (long) data_space_start;
+ − 146 }
+ − 147
2263
+ − 148 #elif defined(WIN32_NATIVE)
428
+ − 149
+ − 150 static void
+ − 151 get_lim_data (void)
+ − 152 {
+ − 153 extern unsigned long data_region_size;
+ − 154 lim_data = data_region_size;
+ − 155 }
+ − 156
2263
+ − 157 #elif defined(HAVE_VLIMIT)
428
+ − 158
+ − 159 static void
+ − 160 get_lim_data (void)
+ − 161 {
+ − 162 lim_data = vlimit (LIM_DATA, -1);
+ − 163 }
+ − 164
+ − 165 #else
2263
+ − 166 #error Cannot determine an implementation of get_lim_data().
+ − 167 #endif /* not HAVE_VLIMIT */
428
+ − 168
440
+ − 169 #endif /* INCLUDED_mem_limits_h_ */