code.delx.au - gnu-emacs/blob - src/mem-limits.h

   1 /* Includes for memory limit warnings.
   2    Copyright (C) 1990, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
   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
   8 the Free Software Foundation; either version 2, or (at your option)
   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, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 #ifdef MSDOS
  22 #include <dpmi.h>
  23 #endif
  24
  25 /* Some systems need this before <sys/resource.h>.  */
  26 #include <sys/types.h>
  27
  28 #ifdef _LIBC
  29
  30 #include <sys/resource.h>
  31 #define BSD4_2                  /* Tell code below to use getrlimit.  */
  32
  33 /* Old Linux startup code won't define __data_start.  */
  34 extern int etext, __data_start; weak_extern (__data_start)
  35 #define start_of_data() (&__data_start ?: &etext)
  36
  37 #else /* not _LIBC */
  38
  39 #if defined (__osf__) && (defined (__mips) || defined (mips) || defined(__alpha))
  40 #include <sys/time.h>
  41 #include <sys/resource.h>
  42 #endif
  43
  44 #ifdef __bsdi__
  45 #define BSD4_2
  46 #endif
  47
  48 #ifndef BSD4_2
  49 #ifndef USG
  50 #ifndef MSDOS
  51 #ifndef WINDOWSNT
  52 #include <sys/vlimit.h>
  53 #endif /* not WINDOWSNT */
  54 #endif /* not MSDOS */
  55 #endif /* not USG */
  56 #else /* if BSD4_2 */
  57 #include <sys/time.h>
  58 #include <sys/resource.h>
  59 #endif /* BSD4_2 */
  60
  61 #ifdef emacs
  62 /* The important properties of this type are that 1) it's a pointer, and
  63    2) arithmetic on it should work as if the size of the object pointed
  64    to has a size of 1.  */
  65 typedef POINTER_TYPE *POINTER;
  66
  67 typedef unsigned long SIZE;
  68
  69 #ifdef NULL
  70 #undef NULL
  71 #endif
  72 #define NULL ((POINTER) 0)
  73
  74 extern POINTER start_of_data ();
  75 #ifdef DATA_SEG_BITS
  76 #define EXCEEDS_LISP_PTR(ptr) \
  77   (((EMACS_UINT) (ptr) & ~DATA_SEG_BITS) >> VALBITS)
  78 #else
  79 #define EXCEEDS_LISP_PTR(ptr) ((EMACS_UINT) (ptr) >> VALBITS)
  80 #endif
  81
  82 #ifdef DATA_START
  83 #define start_of_data() ((char *)DATA_START)
  84 #endif
  85
  86 #ifdef BSD_SYSTEM
  87 #ifndef DATA_SEG_BITS
  88 #ifndef DATA_START
  89 extern char etext;
  90 #define start_of_data() &etext
  91 #endif
  92 #endif
  93 #endif
  94
  95 #else  /* not emacs */
  96 extern char etext;
  97 #define start_of_data() &etext
  98 #endif /* not emacs */
  99
 100 #endif /* not _LIBC */
 101
 102
 103 /* start of data space; can be changed by calling malloc_init */
 104 static POINTER data_space_start;
 105
 106 /* Number of bytes of writable memory we can expect to be able to get */
 107 static unsigned long lim_data;
 108
 109 #ifdef NO_LIM_DATA
 110 static void
 111 get_lim_data ()
 112 {
 113   lim_data = -1;
 114 }
 115 #else /* not NO_LIM_DATA */
 116
 117 #ifdef USG
 118
 119 static void
 120 get_lim_data ()
 121 {
 122   extern long ulimit ();
 123
 124   lim_data = -1;
 125
 126   /* Use the ulimit call, if we seem to have it.  */
 127 #if !defined (ULIMIT_BREAK_VALUE) || defined (GNU_LINUX)
 128   lim_data = ulimit (3, 0);
 129 #endif
 130
 131   /* If that didn't work, just use the macro's value.  */
 132 #ifdef ULIMIT_BREAK_VALUE
 133   if (lim_data == -1)
 134     lim_data = ULIMIT_BREAK_VALUE;
 135 #endif
 136
 137   lim_data -= (long) data_space_start;
 138 }
 139
 140 #else /* not USG */
 141 #ifdef WINDOWSNT
 142
 143 static void
 144 get_lim_data ()
 145 {
 146   extern unsigned long reserved_heap_size;
 147   lim_data = reserved_heap_size;
 148 }
 149
 150 #else
 151 #if !defined (BSD4_2) && !defined (__osf__)
 152
 153 #ifdef MSDOS
 154 void
 155 get_lim_data ()
 156 {
 157   _go32_dpmi_meminfo info;
 158
 159   _go32_dpmi_get_free_memory_information (&info);
 160   lim_data = info.available_memory;
 161 }
 162 #else /* not MSDOS */
 163 static void
 164 get_lim_data ()
 165 {
 166   lim_data = vlimit (LIM_DATA, -1);
 167 }
 168 #endif /* not MSDOS */
 169
 170 #else /* BSD4_2 */
 171
 172 static void
 173 get_lim_data ()
 174 {
 175   struct rlimit XXrlimit;
 176
 177   getrlimit (RLIMIT_DATA, &XXrlimit);
 178 #ifdef RLIM_INFINITY
 179   lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */
 180 #else
 181   lim_data = XXrlimit.rlim_cur; /* soft limit */
 182 #endif
 183 }
 184 #endif /* BSD4_2 */
 185 #endif /* not WINDOWSNT */
 186 #endif /* not USG */
 187 #endif /* not NO_LIM_DATA */