From e9e8d0da5cb0f5471bdd98bc32f21aa2c538c6dc Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Mon, 18 Sep 2017 19:55:27 -0400 Subject: [PATCH] Print more information about "sorted pins" if enabled --- src/runtime/gencgc.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c index 7179299de..21f6f9e09 100644 --- a/src/runtime/gencgc.c +++ b/src/runtime/gencgc.c @@ -1888,9 +1888,13 @@ wipe_nonpinned_words() printf("Sorted pin list:\n"); for (i = 0; i < n_pins; ++i) { lispobj* obj = (lispobj*)pinned_objects.keys[i]; - if (!is_cons_half(*obj)) - printf("%p: %5d words\n", obj, (int)sizetab[widetag_of(*obj)](obj)); - else printf("%p: CONS\n", obj); + lispobj word = *obj; + int widetag = widetag_of(word); + if (is_cons_half(word)) + printf("%p: (cons)\n", obj); + else + printf("%p: %d words (%s)\n", obj, + (int)sizetab[widetag](obj), widetag_names[widetag>>2]); } #endif // Each entry in the pinned objects demarcates two ranges to be cleared: -- 2.11.4.GIT