Mercurial > emacs

comparison src/alloc.c @ 16001:36d2c4a8e064

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fgarbage_collect): Report used and free intervals.
author Richard M. Stallman <rms@gnu.org>
date Sat, 31 Aug 1996 21:53:53 +0000
parents 12c61b25b7b6
children ccf489f8596e
comparison
equal deleted inserted replaced
16000:b5ecd5022991 16001:36d2c4a8e064
1448 DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "", 1448 DEFUN ("garbage-collect", Fgarbage_collect, Sgarbage_collect, 0, 0, "",
1449 "Reclaim storage for Lisp objects no longer needed.\n\ 1449 "Reclaim storage for Lisp objects no longer needed.\n\
1450 Returns info on amount of space in use:\n\ 1450 Returns info on amount of space in use:\n\
1451 ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\ 1451 ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\
1452 (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS\n\ 1452 (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS\n\
1453 (USED-FLOATS . FREE-FLOATS))\n\ 1453 (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS))\n\
1454 Garbage collection happens automatically if you cons more than\n\ 1454 Garbage collection happens automatically if you cons more than\n\
1455 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.") 1455 `gc-cons-threshold' bytes of Lisp data since previous garbage collection.")
1456 () 1456 ()
1457 { 1457 {
1458 register struct gcpro *tail; 1458 register struct gcpro *tail;
1623 make_number (total_free_symbols)), 1623 make_number (total_free_symbols)),
1624 Fcons (Fcons (make_number (total_markers), 1624 Fcons (Fcons (make_number (total_markers),
1625 make_number (total_free_markers)), 1625 make_number (total_free_markers)),
1626 Fcons (make_number (total_string_size), 1626 Fcons (make_number (total_string_size),
1627 Fcons (make_number (total_vector_size), 1627 Fcons (make_number (total_vector_size),
1628 1628 Fcons (Fcons
1629 #ifdef LISP_FLOAT_TYPE 1629 #ifdef LISP_FLOAT_TYPE
1630 Fcons (Fcons (make_number (total_floats), 1630 (make_number (total_floats),
1631 make_number (total_free_floats)), 1631 make_number (total_free_floats)),
1632 Qnil)
1633 #else /* not LISP_FLOAT_TYPE */ 1632 #else /* not LISP_FLOAT_TYPE */
1634 Qnil 1633 (make_number (0), make_number (0)),
1635 #endif /* not LISP_FLOAT_TYPE */ 1634 #endif /* not LISP_FLOAT_TYPE */
1636 ))))); 1635 Fcons (Fcons
1636 #ifdef USE_TEXT_PROPERTIES
1637 (make_number (total_intervals),
1638 make_number (total_free_intervals)),
1639 #else /* not USE_TEXT_PROPERTIES */
1640 (make_number (0), make_number (0)),
1641 #endif /* not USE_TEXT_PROPERTIES */
1642 Qnil)))))));
1637 } 1643 }
1638 1644
1639 #if 0 1645 #if 0
1640 static void 1646 static void
1641 clear_marks () 1647 clear_marks ()