*** empty log message ***
[emacs.git] / src / vm-limit.c
blob0dc89098afb4c7e0ba9c0e66eb07a420206979f2
1 /* Functions for memory limit warnings.
2 Copyright (C) 1990, 1992 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
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.
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.
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. */
21 #ifdef emacs
22 #include <config.h>
23 #include "lisp.h"
24 #endif
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
33 #include "mem-limits.h"
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.
42 static int warnlevel;
44 /* Function to call to issue a warning;
45 0 means don't issue them. */
46 static void (*warn_function) ();
48 /* Get more memory space, complaining if we're near the end. */
50 static void
51 check_memory_limits ()
53 #ifdef REL_ALLOC
54 extern POINTER (*real_morecore) ();
55 #endif
56 extern POINTER (*__morecore) ();
59 register POINTER cp;
60 unsigned long five_percent;
61 unsigned long data_size;
63 if (lim_data == 0)
64 get_lim_data ();
65 five_percent = lim_data / 20;
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;
76 if (warn_function)
77 switch (warnlevel)
79 case 0:
80 if (data_size > five_percent * 15)
82 warnlevel++;
83 (*warn_function) ("Warning: past 75% of memory limit");
85 break;
87 case 1:
88 if (data_size > five_percent * 17)
90 warnlevel++;
91 (*warn_function) ("Warning: past 85% of memory limit");
93 break;
95 case 2:
96 if (data_size > five_percent * 19)
98 warnlevel++;
99 (*warn_function) ("Warning: past 95% of memory limit");
101 break;
103 default:
104 (*warn_function) ("Warning: past acceptable memory limits");
105 break;
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;
121 if (EXCEEDS_LISP_PTR (cp))
122 (*warn_function) ("Warning: memory in use exceeds lisp pointer size");
125 /* Cause reinitialization based on job parameters;
126 also declare where the end of pure storage is. */
128 void
129 memory_warnings (start, warnfun)
130 POINTER start;
131 void (*warnfun) ();
133 extern void (* __after_morecore_hook) (); /* From gmalloc.c */
135 if (start)
136 data_space_start = start;
137 else
138 data_space_start = start_of_data ();
140 warn_function = warnfun;
141 __after_morecore_hook = check_memory_limits;
143 #ifdef WINDOWSNT
144 /* Force data limit to be recalculated on each run. */
145 lim_data = 0;
146 #endif
149 /* arch-tag: eab04eda-1f69-447a-8d9f-95f0a3983ca5
150 (do not change this comment) */