}
}
\f
+/* Debugging aids. */
+
+DEFUN ("memory-limit", Fmemory_limit, Smemory_limit, 0, 0, "",
+ "Return the address of the last byte Emacs has allocated, divided by 1024.\n\
+This may be helpful in debugging Emacs's memory usage.\n\
+If called interactively, print the result in the minibuffer.")
+ ()
+{
+ Lisp_Object end;
+
+ XSET (end, Lisp_Int, (int) sbrk (0));
+
+ if (! NILP (Finteractive_p))
+ message ("Memory limit at %dk.", XINT (end));
+
+ return end;
+}
+
+\f
/* Initialization */
init_alloc_once ()
defsubr (&Smake_marker);
defsubr (&Spurecopy);
defsubr (&Sgarbage_collect);
+ defsubr (&Smemory_limit);
}