From f366d66e83d76df1d89e264b463a6f903459d024 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Sun, 21 Jul 2019 18:03:17 +0000 Subject: [PATCH] Other debugging changes. --- src/alloc.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/alloc.c b/src/alloc.c index 1b55ad8cab..fe98eca086 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -5663,7 +5663,10 @@ mark_vectorlike (union vectorlike_header *header) The distinction is used e.g. by Lisp_Process which places extra non-Lisp_Object fields at the end of the structure... */ for (i = 0; i < size; i++) /* ...and then mark its elements. */ - mark_object (ptr->contents[i]); + { + fprintf (stderr, "%d\n", (int)i); + mark_object (ptr->contents[i]); + } } /* Like mark_vectorlike but optimized for char-tables (and @@ -6079,6 +6082,8 @@ #define CHECK_ALLOCATED_AND_LIVE_SYMBOL() ((void) 0) { struct Lisp_Symbol *ptr = XSYMBOL (obj); nextsym: + if (!NILP (ptr->u.s.name)) + fprintf (stderr, "%p %s\n", ptr, SDATA (ptr->u.s.name)); if (symbol_marked_p (ptr)) break; CHECK_ALLOCATED_AND_LIVE_SYMBOL (); -- 2.22.0