# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 718919992 0
# Node ID af08281c0cbe9949baddff0412cf6631685af49d
# Parent  dbb56cda0b28e9de07daf1ffa57a09741b08f266
(warnfunction): Renamed to warn_function (was used inconsistently).
(morecore_with_warning, memory_warnings): Change callers (were inconsistent).

diff -r dbb56cda0b28 -r af08281c0cbe src/vm-limit.c
--- 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;
 }