From 0819585c7b64be82f7b35d6294c2135132938fa6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Aug 1996 00:44:05 +0000 Subject: [PATCH] (syms_of_alloc): Set up Lisp variables ...-consed, such as Vcons-cells-consed. --- src/alloc.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index 71870839916..662c334d47b 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -2596,6 +2596,27 @@ prevent garbage collection during a part of the program."); 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."); -- 2.39.2