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

   1 /* Includes for memory limit warnings.
   2    Copyright (C) 1990, 1992 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 1, 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 #ifndef BSD4_2
  21 #ifndef USG
  22 #include <sys/vlimit.h>
  23 #endif /* not USG */
  24 #else /* if BSD4_2 */
  25 #include <sys/time.h>
  26 #include <sys/resource.h>
  27 #endif /* BSD4_2 */
  28
  29 #ifdef emacs
  30 /* The important properties of this type are that 1) it's a pointer, and
  31    2) arithmetic on it should work as if the size of the object pointed
  32    to has a size of 1.  */
  33 #ifdef __STDC__
  34 typedef void *POINTER;
  35 #else
  36 typedef char *POINTER;
  37 #endif
  38
  39 typedef unsigned long SIZE;
  40
  41 #ifdef NULL
  42 #undef NULL
  43 #endif
  44 #define NULL ((POINTER) 0)
  45
  46 extern POINTER start_of_data ();
  47 #ifdef DATA_SEG_BITS
  48 #define EXCEEDS_LISP_PTR(ptr) \
  49   (((unsigned int) (ptr) & ~DATA_SEG_BITS) >> VALBITS)
  50 #else
  51 #define EXCEEDS_LISP_PTR(ptr) ((unsigned int) (ptr) >> VALBITS)
  52 #endif
  53
  54 #ifdef BSD
  55 #ifndef DATA_SEG_BITS
  56 extern char etext;
  57 #define start_of_data() &etext
  58 #endif
  59 #endif
  60
  61 #else  /* Not emacs */
  62 extern char etext;
  63 #define start_of_data() &etext
  64 #endif /* Not emacs */
  65
  66
  67
  68 /* start of data space; can be changed by calling malloc_init */
  69 static POINTER data_space_start;
  70
  71 /* Number of bytes of writable memory we can expect to be able to get */
  72 static unsigned int lim_data;
  73
  74 #ifdef USG
  75
  76 static void
  77 get_lim_data ()
  78 {
  79   extern long ulimit ();
  80
  81 #ifdef ULIMIT_BREAK_VALUE
  82   lim_data = ULIMIT_BREAK_VALUE;
  83 #else
  84   lim_data = ulimit (3, 0);
  85 #endif
  86
  87   lim_data -= (long) data_space_start;
  88 }
  89
  90 #else /* not USG */
  91 #ifndef BSD4_2
  92
  93 static void
  94 get_lim_data ()
  95 {
  96   lim_data = vlimit (LIM_DATA, -1);
  97 }
  98
  99 #else /* BSD4_2 */
 100
 101 static void
 102 get_lim_data ()
 103 {
 104   struct rlimit XXrlimit;
 105
 106   getrlimit (RLIMIT_DATA, &XXrlimit);
 107 #ifdef RLIM_INFINITY
 108   lim_data = XXrlimit.rlim_cur & RLIM_INFINITY; /* soft limit */
 109 #else
 110   lim_data = XXrlimit.rlim_cur; /* soft limit */
 111 #endif
 112 }
 113 #endif /* BSD4_2 */
 114 #endif /* not USG */