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

   1 /* Includes for memory limit warnings.
   2    Copyright (C) 1990, 1993, 1994 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 #else
  33
  34 #if defined (__osf__) && (defined (__mips) || defined (mips))
  35 #include <sys/time.h>
  36 #include <sys/resource.h>
  37 #endif
  38
  39 #ifdef __bsdi__
  40 #define BSD4_2
  41 #endif
  42
  43 #ifndef BSD4_2
  44 #ifndef USG
  45 #ifndef MSDOS
  46 #include <sys/vlimit.h>
  47 #endif /* not MSDOS */
  48 #endif /* not USG */
  49 #else /* if BSD4_2 */
  50 #include <sys/time.h>
  51 #include <sys/resource.h>
  52 #endif /* BSD4_2 */
  53
  54 #endif /* _LIBC */
  55
  56 #ifdef emacs
  57 /* The important properties of this type are that 1) it's a pointer, and
  58    2) arithmetic on it should work as if the size of the object pointed
  59    to has a size of 1.  */
  60 #ifdef __STDC__
  61 typedef void *POINTER;
  62 #else
  63 typedef char *POINTER;
  64 #endif
  65
  66 typedef unsigned long SIZE;
  67
  68 #ifdef NULL
  69 #undef NULL
  70 #endif
  71 #define NULL ((POINTER) 0)
  72
  73 extern POINTER start_of_data ();
  74 #ifdef DATA_SEG_BITS
  75 #define EXCEEDS_LISP_PTR(ptr) \
  76   (((unsigned int) (ptr) & ~DATA_SEG_BITS) >> VALBITS)
  77 #else
  78 #define EXCEEDS_LISP_PTR(ptr) ((unsigned int) (ptr) >> VALBITS)
  79 #endif
  80
  81 #ifdef BSD
  82 #ifndef DATA_SEG_BITS
  83 extern char etext;
  84 #define start_of_data() &etext
  85 #endif
  86 #endif
  87
  88 #else  /* Not emacs */
  89 extern char etext;
  90 #define start_of_data() &etext
  91 #endif /* Not emacs */
  92
  93
  94
  95 /* start of data space; can be changed by calling malloc_init */
  96 static POINTER data_space_start;
  97
  98 /* Number of bytes of writable memory we can expect to be able to get */
  99 static unsigned int lim_data;
 100
 101 #ifdef NO_LIM_DATA
 102 static void
 103 get_lim_data ()
 104 {
 105   lim_data = -1;
 106 }
 107 #else /* not NO_LIM_DATA */
 108
 109 #ifdef USG
 110
 111 static void
 112 get_lim_data ()
 113 {
 114   extern long ulimit ();
 115
 116   lim_data = -1;
 117
 118   /* Use the ulimit call, if we seem to have it.  */
 119 #if !defined (ULIMIT_BREAK_VALUE) || defined (LINUX)
 120   lim_data = ulimit (3, 0);
 121 #endif
 122
 123   /* If that didn't work, just use the macro's value.  */
 124 #ifdef ULIMIT_BREAK_VALUE
 125   if (lim_data == -1)
 126     lim_data = ULIMIT_BREAK_VALUE;
 127 #endif
 128
 129   lim_data -= (long) data_space_start;
 130 }
 131
 132 #else /* not USG */
 133 #if !defined (BSD4_2) && !defined (__osf__)
 134
 135 #ifdef MSDOS
 136 void
 137 get_lim_data ()
 138 {
 139   _go32_dpmi_meminfo info;
 140
 141   _go32_dpmi_get_free_memory_information (&info);
 142   lim_data = info.available_memory;
 143 }
 144 #else /* not MSDOS */
 145 static void
 146 get_lim_data ()
 147 {
 148   lim_data = vlimit (LIM_DATA, -1);
 149 }
 150 #endif /* not MSDOS */
 151
 152 #else /* BSD4_2 */
 153
 154 static void
 155 get_lim_data ()
 156 {
 157   struct rlimit XXrlimit;
 158
 159   getrlimit (RLIMIT_DATA, &XXrlimit);
 160 #ifdef RLIM_INFINITY
 161   lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */
 162 #else
 163   lim_data = XXrlimit.rlim_cur; /* soft limit */
 164 #endif
 165 }
 166 #endif /* BSD4_2 */
 167 #endif /* not USG */
 168 #endif /* not NO_LIM_DATA */