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

[Keith David Bershatsky]

Thank you, Eli, for letting me know that my previous test was not the correct 
way to do it.  I added a little bit of code from garbage-collect to 
garbage_collect_1 so that messages to stderr are automatically generated when 
garbage collection occurs.

In all three (3) of the new tests, I used the following Lisp code at the outset 
and then held down the right arrow key (right-char) in the *GNU Emacs* welcome 
buffer:

(progn
  (blink-cursor-mode -1)
  (global-eldoc-mode -1)
  (setq timer-list nil
        timer-idle-list nil))

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

;;; begin STOCK / UNMODIFIED Emacs

((conses 16 12347 39900)
 (symbols 48 1746 1)
 (strings 32 4057 438)
 (string-bytes 1 117832)
 (vectors 16 3477)
 (vector-slots 8 52314 9400)
 (floats 8 7 17)
 (intervals 56 54 26)
 (buffers 992 9))

;;; end STOCK UNMODIFIED Emacs

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

;;; begin MODIFIED Emacs -- CROSSHAIRS "OFF"

((conses 16 4624 17450)
 (symbols 48 1312 0)
 (strings 32 580 1807)
 (string-bytes 1 34827)
 (vectors 16 3638)
 (vector-slots 8 52667 12372)
 (floats 8 17 425)
 (intervals 56 51 29)
 (buffers 1072 8))

;;; end MODIFIED Emacs -- CROSSHAIRS "OFF"

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

;;; begin MODIFIED Emacs -- CROSSHAIRS "ON"

((conses 16 6032 17006)
 (symbols 48 1314 1)
 (strings 32 595 1854)
 (string-bytes 1 36097)
 (vectors 16 3729)
 (vector-slots 8 53337 12722)
 (floats 8 264 805)
 (intervals 56 53 27)
 (buffers 1072 9))

;;; end MODIFIED Emacs -- CROSSHAIRS "ON"

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

Here is the diff I used to automatically generate messages to stderr during 
garbage collection:

diff --git a/src/alloc.c b/src/alloc.c
index dd78386..b503b74 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[] = {
+    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);