Mercurial > emacs
changeset 34270:773e6aa2ec38
(Fgarbage_collect): Dox fix. Return a list as
advertized by the function documentation.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 06 Dec 2000 14:22:15 +0000 |
| parents | a50ccd431a27 |
| children | 52c06c998aac |
| files | src/alloc.c |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Wed Dec 06 14:02:38 2000 +0000 +++ b/src/alloc.c Wed Dec 06 14:22:15 2000 +0000 @@ -3687,7 +3687,7 @@ Returns info on amount of space in use:\n\ ((USED-CONSES . FREE-CONSES) (USED-SYMS . FREE-SYMS)\n\ (USED-MARKERS . FREE-MARKERS) USED-STRING-CHARS USED-VECTOR-SLOTS\n\ - (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS\n\ + (USED-FLOATS . FREE-FLOATS) (USED-INTERVALS . FREE-INTERVALS)\n\ (USED-STRINGS . FREE-STRINGS))\n\ Garbage collection happens automatically if you cons more than\n\ `gc-cons-threshold' bytes of Lisp data since previous garbage collection.") @@ -3701,7 +3701,7 @@ char stack_top_variable; register int i; int message_p; - Lisp_Object total[7]; + Lisp_Object total[8]; /* In case user calls debug_print during GC, don't let that cause a recursive GC. */ @@ -3921,13 +3921,13 @@ make_number (total_free_symbols)); total[2] = Fcons (make_number (total_markers), make_number (total_free_markers)); - total[3] = Fcons (make_number (total_string_size), - make_number (total_vector_size)); - total[4] = Fcons (make_number (total_floats), + total[3] = make_number (total_string_size); + total[4] = make_number (total_vector_size); + total[5] = Fcons (make_number (total_floats), make_number (total_free_floats)); - total[5] = Fcons (make_number (total_intervals), + total[6] = Fcons (make_number (total_intervals), make_number (total_free_intervals)); - total[6] = Fcons (make_number (total_strings), + total[7] = Fcons (make_number (total_strings), make_number (total_free_strings)); #if GC_MARK_STACK == GC_USE_GCPROS_CHECK_ZOMBIES @@ -3946,7 +3946,7 @@ } #endif - return Flist (7, total); + return Flist (sizeof total / sizeof *total, total); }