src/vm-limit.c

   1 /* Functions 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 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 emacs
  22 #include <config.h>
  23 #include "lisp.h"
  24 #endif
  25
  26 #ifndef emacs
  27 #include <stddef.h>
  28 typedef size_t SIZE;
  29 typedef void *POINTER;
  30 #define EXCEEDS_LISP_PTR(x) 0
  31 #endif
  32
  33 #include "mem-limits.h"
  34
  35 /*
  36   Level number of warnings already issued.
  37   0 -- no warnings issued.
  38   1 -- 75% warning already issued.
  39   2 -- 85% warning already issued.
  40   3 -- 95% warning issued; keep warning frequently.
  41 */
  42 static int warnlevel;
  43
  44 /* Function to call to issue a warning;
  45    0 means don't issue them.  */
  46 static void (*warn_function) ();
  47
  48 /* Get more memory space, complaining if we're near the end. */
  49
  50 static void
  51 check_memory_limits ()
  52 {
  53 #ifdef REL_ALLOC
  54   extern POINTER (*real_morecore) ();
  55 #endif
  56   extern POINTER (*__morecore) ();
  57
  58
  59   register POINTER cp;
  60   unsigned long five_percent;
  61   unsigned long data_size;
  62
  63   if (lim_data == 0)
  64     get_lim_data ();
  65   five_percent = lim_data / 20;
  66
  67   /* Find current end of memory and issue warning if getting near max */
  68 #ifdef REL_ALLOC
  69   if (real_morecore)
  70     cp = (char *) (*real_morecore) (0);
  71   else
  72 #endif
  73   cp = (char *) (*__morecore) (0);
  74   data_size = (char *) cp - (char *) data_space_start;
  75
  76   if (warn_function)
  77     switch (warnlevel)
  78       {
  79       case 0:
  80         if (data_size > five_percent * 15)
  81           {
  82             warnlevel++;
  83             (*warn_function) ("Warning: past 75% of memory limit");
  84           }
  85         break;
  86
  87       case 1:
  88         if (data_size > five_percent * 17)
  89           {
  90             warnlevel++;
  91             (*warn_function) ("Warning: past 85% of memory limit");
  92           }
  93         break;
  94
  95       case 2:
  96         if (data_size > five_percent * 19)
  97           {
  98             warnlevel++;
  99             (*warn_function) ("Warning: past 95% of memory limit");
 100           }
 101         break;
 102
 103       default:
 104         (*warn_function) ("Warning: past acceptable memory limits");
 105         break;
 106       }
 107
 108   /* If we go down below 70% full, issue another 75% warning
 109      when we go up again.  */
 110   if (data_size < five_percent * 14)
 111     warnlevel = 0;
 112   /* If we go down below 80% full, issue another 85% warning
 113      when we go up again.  */
 114   else if (warnlevel > 1 && data_size < five_percent * 16)
 115     warnlevel = 1;
 116   /* If we go down below 90% full, issue another 95% warning
 117      when we go up again.  */
 118   else if (warnlevel > 2 && data_size < five_percent * 18)
 119     warnlevel = 2;
 120
 121   if (EXCEEDS_LISP_PTR (cp))
 122     (*warn_function) ("Warning: memory in use exceeds lisp pointer size");
 123 }
 124
 125 /* Cause reinitialization based on job parameters;
 126    also declare where the end of pure storage is. */
 127
 128 void
 129 memory_warnings (start, warnfun)
 130      POINTER start;
 131      void (*warnfun) ();
 132 {
 133   extern void (* __after_morecore_hook) ();     /* From gmalloc.c */
 134
 135   if (start)
 136     data_space_start = start;
 137   else
 138     data_space_start = start_of_data ();
 139
 140   warn_function = warnfun;
 141   __after_morecore_hook = check_memory_limits;
 142
 143 #ifdef WINDOWSNT
 144   /* Force data limit to be recalculated on each run.  */
 145   lim_data = 0;
 146 #endif
 147 }