comparison src/alloc.c @ 1327:ef16e7c0d402

* alloc.c (Fmemory_limit): New function. (syms_of_alloc): Defsubr it.

1326:709532b86646

      else
	from_sb = to_sb;
    }
}

/* Initialization */

init_alloc_once ()
{
  /* Used to do Vpurify_flag = Qt here, but Qt isn't set up yet!  */

  defsubr (&Srope_elt);
  defsubr (&Smake_symbol);
  defsubr (&Smake_marker);
  defsubr (&Spurecopy);
  defsubr (&Sgarbage_collect);
}

1327:ef16e7c0d402

      else
	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 */

init_alloc_once ()
{
  /* Used to do Vpurify_flag = Qt here, but Qt isn't set up yet!  */

  defsubr (&Srope_elt);
  defsubr (&Smake_symbol);
  defsubr (&Smake_marker);
  defsubr (&Spurecopy);
  defsubr (&Sgarbage_collect);
  defsubr (&Smemory_limit);
}