Mercurial > emacs
changeset 15960:12c61b25b7b6
(syms_of_alloc): Set up Lisp variables ...-consed,
such as Vcons-cells-consed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Aug 1996 00:44:05 +0000 |
| parents | 2f732db1918c |
| children | e26f5c2b75a6 |
| files | src/alloc.c |
| diffstat | 1 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Thu Aug 29 00:30:44 1996 +0000 +++ b/src/alloc.c Thu Aug 29 00:44:05 1996 +0000 @@ -2596,6 +2596,27 @@ DEFVAR_INT ("pure-bytes-used", &pureptr, "Number of bytes of sharable Lisp data allocated so far."); + DEFVAR_INT ("cons-cells-consed", &cons_cells_consed, + "Number of cons cells that have been consed so far."); + + DEFVAR_INT ("floats-consed", &floats_consed, + "Number of floats that have been consed so far."); + + DEFVAR_INT ("vector-cells-consed", &vector_cells_consed, + "Number of vector cells that have been consed so far."); + + DEFVAR_INT ("symbols-consed", &symbols_consed, + "Number of symbols that have been consed so far."); + + DEFVAR_INT ("string-chars-consed", &string_chars_consed, + "Number of string characters that have been consed so far."); + + DEFVAR_INT ("misc-objects-consed", &misc_objects_consed, + "Number of miscellaneous objects that have been consed so far."); + + DEFVAR_INT ("intervals-consed", &intervals_consed, + "Number of intervals that have been consed so far."); + #if 0 DEFVAR_INT ("data-bytes-used", &malloc_sbrk_used, "Number of bytes of unshared memory allocated in this session.");