Re: NS port: How to debug excessive garbage collection?

[Keith David Bershatsky <esq@lawlist.com>]

Thank you, Eli, for directing me to the function memory-use-counts.  I inserted the innards of that function into garbage_collect_1 and ran new tests, selecting the first 5 stderr printouts for each test using the following Lisp command (at the outset of each test) and then holding down the right arrow key (right-char):

(progn
  (find-library "simple")
  (fundamental-mode)
  (blink-cursor-mode -1)
  (global-eldoc-mode -1)
  (setq timer-list nil
        timer-idle-list nil
        crosshairs t))

============================

;;; begin STOCK / UNMODIFIED

((cons_cells_consed 2285210)
 (symbols_consed 16084)
 (strings_consed 95613)
 (string_chars_consed 2091140)
 (vector_cells_consed 6877366)
 (floats_consed 568)
 (intervals_consed 112))

((cons_cells_consed 2327648)
 (symbols_consed 16084)
 (strings_consed 97813)
 (string_chars_consed 2106916)
 (vector_cells_consed 6878987)
 (floats_consed 569)
 (intervals_consed 112))

((cons_cells_consed 2370021)
 (symbols_consed 16084)
 (strings_consed 100103)
 (string_chars_consed 2123400)
 (vector_cells_consed 6880233)
 (floats_consed 570)
 (intervals_consed 112))

((cons_cells_consed 2412389)
 (symbols_consed 16084)
 (strings_consed 102389)
 (string_chars_consed 2139936)
 (vector_cells_consed 6881507)
 (floats_consed 571)
 (intervals_consed 112))

((cons_cells_consed 2455285)
 (symbols_consed 16084)
 (strings_consed 104220)
 (string_chars_consed 2152636)
 (vector_cells_consed 6884284)
 (floats_consed 572)
 (intervals_consed 112))


;;; end STOCK UNMODIFIED

============================

;;; begin MODIFIED -- CROSSHAIRS "OFF"

((cons_cells_consed 2282540)
 (symbols_consed 16120)
 (strings_consed 95918)
 (string_chars_consed 2094233)
 (vector_cells_consed 6880135)
 (floats_consed 1656)
 (intervals_consed 112))

((cons_cells_consed 2313916)
 (symbols_consed 16120)
 (strings_consed 99976)
 (string_chars_consed 2122818)
 (vector_cells_consed 6885827)
 (floats_consed 7045)
 (intervals_consed 112))

((cons_cells_consed 2345230)
 (symbols_consed 16120)
 (strings_consed 104045)
 (string_chars_consed 2151571)
 (vector_cells_consed 6891513)
 (floats_consed 12446)
 (intervals_consed 112))

((cons_cells_consed 2376738)
 (symbols_consed 16120)
 (strings_consed 108070)
 (string_chars_consed 2179909)
 (vector_cells_consed 6897231)
 (floats_consed 17787)
 (intervals_consed 112))

((cons_cells_consed 2408250)
 (symbols_consed 16120)
 (strings_consed 112081)
 (string_chars_consed 2208228)
 (vector_cells_consed 6903029)
 (floats_consed 23104)
 (intervals_consed 112))

;;; end MODIFIED -- CROSSHAIRS "OFF"

============================

;;; begin MODIFIED -- CROSSHAIRS "ON"

((cons_cells_consed 2323418)
 (symbols_consed 16122)
 (strings_consed 98901)
 (string_chars_consed 2116217)
 (vector_cells_consed 6883922)
 (floats_consed 5413)
 (intervals_consed 112))

((cons_cells_consed 2360412)
 (symbols_consed 16122)
 (strings_consed 102038)
 (string_chars_consed 2139422)
 (vector_cells_consed 6887522)
 (floats_consed 9014)
 (intervals_consed 112))

((cons_cells_consed 2397407)
 (symbols_consed 16122)
 (strings_consed 105191)
 (string_chars_consed 2162776)
 (vector_cells_consed 6891122)
 (floats_consed 12615)
 (intervals_consed 112))

((cons_cells_consed 2434401)
 (symbols_consed 16122)
 (strings_consed 108329)
 (string_chars_consed 2185981)
 (vector_cells_consed 6894722)
 (floats_consed 16216)
 (intervals_consed 112))

((cons_cells_consed 2471395)
 (symbols_consed 16122)
 (strings_consed 111473)
 (string_chars_consed 2209234)
 (vector_cells_consed 6898322)
 (floats_consed 19817)
 (intervals_consed 112))

;;; end MODIFIED -- CROSSHAIRS "ON"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

diff --git a/src/alloc.c b/src/alloc.c
index dd78386..0bd62c7 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6206,6 +6206,53 @@ garbage_collect_1 (struct gcstat *gcst)
 
   *gcst = gcstat;
 
+
+/* *************************************************************************** */
+/* begin DEBUGGING */
+
+  Lisp_Object total[] = {
+    list2 (intern ("cons_cells_consed"), make_int (cons_cells_consed)),
+    list2 (intern ("symbols_consed"), make_int (symbols_consed)),
+    list2 (intern ("strings_consed"), make_int (strings_consed)),
+    list2 (intern ("string_chars_consed"), make_int (string_chars_consed)),
+    list2 (intern ("vector_cells_consed"), make_int (vector_cells_consed)),
+    list2 (intern ("floats_consed"), make_int (floats_consed)),
+    list2 (intern ("intervals_consed"), make_int (intervals_consed)),
+/*
+    list4 (Qconses, make_fixnum (sizeof (struct Lisp_Cons)),
+           make_int (gcstat.total_conses), make_int (gcstat.total_free_conses)),
+    list4 (Qsymbols, make_fixnum (sizeof (struct Lisp_Symbol)),
+           make_int (gcstat.total_symbols), make_int (gcstat.total_free_symbols)),
+    list4 (Qstrings, make_fixnum (sizeof (struct Lisp_String)),
+           make_int (gcstat.total_strings), make_int (gcstat.total_free_strings)),
+    list3 (Qstring_bytes, make_fixnum (1), make_int (gcstat.total_string_bytes)),
+    list3 (Qvectors, make_fixnum (header_size + sizeof (Lisp_Object)),
+           make_int (gcstat.total_vectors)),
+    list4 (Qvector_slots, make_fixnum (word_size), make_int (gcstat.total_vector_slots),
+           make_int (gcstat.total_free_vector_slots)),
+    list4 (Qfloats, make_fixnum (sizeof (struct Lisp_Float)),
+           make_int (gcstat.total_floats), make_int (gcstat.total_free_floats)),
+    list4 (Qintervals, make_fixnum (sizeof (struct interval)),
+           make_int (gcstat.total_intervals), make_int (gcstat.total_free_intervals)),
+    list3 (Qbuffers, make_fixnum (sizeof (struct buffer)),
+           make_int (gcstat.total_buffers)),
+#ifdef DOUG_LEA_MALLOC
+    list4 (Qheap, make_fixnum (1024),
+           make_int ((mallinfo ().uordblks + 1023) >> 10),
+           make_int ((mallinfo ().fordblks + 1023) >> 10)),
+#endif
+*/
+  };
+
+  Lisp_Object val = CALLMANY (Flist, total);
+  Lisp_Object string = Fprin1_to_string (val, Qnil);
+  char *char_string = SSDATA (string);
+  fprintf (stderr, "%s\n", char_string);
+
+/* end DEBUGGING */
+/* *************************************************************************** */
+
+
   /* GC is complete: now we can run our finalizer callbacks.  */
   run_finalizers (&doomed_finalizers);