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

   1 /* Includes for memory limit warnings.
   2    Copyright (C) 1990, 1993, 1994, 1995 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, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 #ifdef MSDOS
  21 #include <dpmi.h>
  22 #endif
  23
  24 /* Some systems need this before <sys/resource.h>.  */
  25 #include <sys/types.h>
  26
  27 #ifdef _LIBC
  28
  29 #include <sys/resource.h>
  30 #define BSD4_2                  /* Tell code below to use getrlimit.  */
  31
  32 /* Old Linux startup code won't define __data_start.  */
  33 extern int etext, __data_start; weak_symbol (__data_start)
  34 #define start_of_data() (&__data_start ?: &etext)
  35
  36 #else /* not _LIBC */
  37
  38 #if defined (__osf__) && (defined (__mips) || defined (mips) || defined(__alpha))
  39 #include <sys/time.h>
  40 #include <sys/resource.h>
  41 #endif
  42
  43 #ifdef __bsdi__
  44 #define BSD4_2
  45 #endif
  46
  47 #ifndef BSD4_2
  48 #ifndef USG
  49 #ifndef MSDOS
  50 #ifndef WINDOWSNT
  51 #include <sys/vlimit.h>
  52 #endif /* not WINDOWSNT */
  53 #endif /* not MSDOS */
  54 #endif /* not USG */
  55 #else /* if BSD4_2 */
  56 #include <sys/time.h>
  57 #include <sys/resource.h>
  58 #endif /* BSD4_2 */
  59
  60 #ifdef emacs
  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.  */
  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 ();
  78 #ifdef DATA_SEG_BITS
  79 #define EXCEEDS_LISP_PTR(ptr) \
  80   (((EMACS_UINT) (ptr) & ~DATA_SEG_BITS) >> VALBITS)
  81 #else
  82 #define EXCEEDS_LISP_PTR(ptr) ((EMACS_UINT) (ptr) >> VALBITS)
  83 #endif
  84
  85 #ifdef BSD
  86 #ifndef DATA_SEG_BITS
  87 extern char etext;
  88 #define start_of_data() &etext
  89 #endif
  90 #endif
  91
  92 #else  /* not emacs */
  93 extern char etext;
  94 #define start_of_data() &etext
  95 #endif /* not emacs */
  96
  97 #endif /* not _LIBC */
  98
  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
 106 #ifdef NO_LIM_DATA
 107 static void
 108 get_lim_data ()
 109 {
 110   lim_data = -1;
 111 }
 112 #else /* not NO_LIM_DATA */
 113
 114 #ifdef USG
 115
 116 static void
 117 get_lim_data ()
 118 {
 119   extern long ulimit ();
 120
 121   lim_data = -1;
 122
 123   /* Use the ulimit call, if we seem to have it.  */
 124 #if !defined (ULIMIT_BREAK_VALUE) || defined (LINUX)
 125   lim_data = ulimit (3, 0);
 126 #endif
 127
 128   /* If that didn't work, just use the macro's value.  */
 129 #ifdef ULIMIT_BREAK_VALUE
 130   if (lim_data == -1)
 131     lim_data = ULIMIT_BREAK_VALUE;
 132 #endif
 133
 134   lim_data -= (long) data_space_start;
 135 }
 136
 137 #else /* not USG */
 138 #ifdef WINDOWSNT
 139
 140 static void
 141 get_lim_data ()
 142 {
 143   extern unsigned long data_region_size;
 144   lim_data = data_region_size;
 145 }
 146
 147 #else
 148 #if !defined (BSD4_2) && !defined (__osf__)
 149
 150 #ifdef MSDOS
 151 void
 152 get_lim_data ()
 153 {
 154   _go32_dpmi_meminfo info;
 155
 156   _go32_dpmi_get_free_memory_information (&info);
 157   lim_data = info.available_memory;
 158 }
 159 #else /* not MSDOS */
 160 static void
 161 get_lim_data ()
 162 {
 163   lim_data = vlimit (LIM_DATA, -1);
 164 }
 165 #endif /* not MSDOS */
 166
 167 #else /* BSD4_2 */
 168
 169 static void
 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 */
 182 #endif /* not WINDOWSNT */
 183 #endif /* not USG */
 184 #endif /* not NO_LIM_DATA */