Commit 20d24714 authored by Jim Blandy's avatar Jim Blandy

* alloc.c (Fmemory_limit): New function.

	(syms_of_alloc): Defsubr it.
parent ff06df24
......@@ -2009,6 +2009,25 @@ compact_strings ()
from_sb = to_sb;
}
}
/* 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;
}
/* Initialization */
......@@ -2100,4 +2119,5 @@ which includes both saved text and other data.");
defsubr (&Smake_marker);
defsubr (&Spurecopy);
defsubr (&Sgarbage_collect);
defsubr (&Smemory_limit);
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment