mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(warnfunction): Renamed to warn_function (was used inconsistently).

Browse source 
(morecore_with_warning, memory_warnings): Change callers (were inconsistent).
This commit is contained in:
Roland McGrath 1992-10-12 19:59:52 +00:00
parent aa3e02cec0
commit da396c5e1f
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/vm-limit.c
View file

@ -42,7 +42,7 @@ static int warnlevel;
/* Function to call to issue a warning;
0 means don't issue them. */
static void (*warnfunction) ();
static void (*warn_function) ();
extern POINTER sbrk ();
@ -63,9 +63,9 @@ morecore_with_warning (size)
/* Find current end of memory and issue warning if getting near max */
cp = sbrk (0);
data_size = cp - data_space_start;
data_size = (char *) cp - (char *) data_space_start;
if (warnfunction)
if (warn_function)
switch (warnlevel)
{
case 0:
@ -111,7 +111,7 @@ morecore_with_warning (size)
warnlevel = 2;
if (EXCEEDS_LISP_PTR (cp))
(*warnfunction) ("Warning: memory in use exceeds lisp pointer size");
(*warn_function) ("Warning: memory in use exceeds lisp pointer size");
result = sbrk (size);
if (result == (POINTER) -1)
@ -134,6 +134,6 @@ memory_warnings (start, warnfun)
else
data_space_start = start_of_data ();
warnfunction = warnfun;
warn_function = warnfun;
__morecore = &morecore_with_warning;
}