Mercurial > emacs

changeset 1400:af08281c0cbe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(warnfunction): Renamed to warn_function (was used inconsistently). (morecore_with_warning, memory_warnings): Change callers (were inconsistent).
author Roland McGrath <roland@gnu.org>
date Mon, 12 Oct 1992 19:59:52 +0000
parents dbb56cda0b28
children 9689db083f88
files src/vm-limit.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/vm-limit.c	Mon Oct 12 19:10:02 1992 +0000
+++ b/src/vm-limit.c	Mon Oct 12 19:59:52 1992 +0000
@@ -42,7 +42,7 @@
 
 /* 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 @@
 
   /* 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 @@
     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 @@
   else
     data_space_start = start_of_data ();
 
-  warnfunction = warnfun;
+  warn_function = warnfun;
   __morecore = &morecore_with_warning;
 }