summaryrefslogtreecommitdiff
path: root/rts/Printer.c
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omer@well-typed.com>2019-02-05 00:37:57 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-03-05 22:28:45 -0500
commit23342e1f06204a4853a6b191bf0960d2c2baf457 (patch)
tree4d81405f5df529be8236c01dfb6e187966712cdb /rts/Printer.c
parent37f257afcd6a52cf4d76c60d766b1aeb520b9f05 (diff)
downloadhaskell-23342e1f06204a4853a6b191bf0960d2c2baf457.tar.gz
rts/Printer: Introduce a few more printing utilities
These include printLargeAndPinnedObjects, printWeakLists, and printStaticObjects. These are generally useful things to have.
Diffstat (limited to 'rts/Printer.c')
-rw-r--r--rts/Printer.c71
1 files changed, 71 insertions, 0 deletions
diff --git a/rts/Printer.c b/rts/Printer.c
index 291f529e8f..38335aa963 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -646,6 +646,77 @@ void printTSO( StgTSO *tso )
printStack( tso->stackobj );
}
+void printStaticObjects( StgClosure *p )
+{
+ while (p != END_OF_STATIC_OBJECT_LIST) {
+ p = UNTAG_STATIC_LIST_PTR(p);
+ printClosure(p);
+
+ const StgInfoTable *info = get_itbl(p);
+ p = *STATIC_LINK(info, p);
+ }
+}
+
+void printWeakLists()
+{
+ debugBelch("======= WEAK LISTS =======\n");
+
+ for (uint32_t cap_idx = 0; cap_idx < n_capabilities; ++cap_idx) {
+ debugBelch("Capability %d:\n", cap_idx);
+ Capability *cap = capabilities[cap_idx];
+ for (StgWeak *weak = cap->weak_ptr_list_hd; weak; weak = weak->link) {
+ printClosure((StgClosure*)weak);
+ }
+ }
+
+ for (uint32_t gen_idx = 0; gen_idx <= oldest_gen->no; ++gen_idx) {
+ generation *gen = &generations[gen_idx];
+ debugBelch("Generation %d current weaks:\n", gen_idx);
+ for (StgWeak *weak = gen->weak_ptr_list; weak; weak = weak->link) {
+ printClosure((StgClosure*)weak);
+ }
+ debugBelch("Generation %d old weaks:\n", gen_idx);
+ for (StgWeak *weak = gen->old_weak_ptr_list; weak; weak = weak->link) {
+ printClosure((StgClosure*)weak);
+ }
+ }
+
+ debugBelch("=========================\n");
+}
+
+void printLargeAndPinnedObjects()
+{
+ debugBelch("====== PINNED OBJECTS ======\n");
+
+ for (uint32_t cap_idx = 0; cap_idx < n_capabilities; ++cap_idx) {
+ Capability *cap = capabilities[cap_idx];
+
+ debugBelch("Capability %d: Current pinned object block: %p\n",
+ cap_idx, (void*)cap->pinned_object_block);
+ for (bdescr *bd = cap->pinned_object_blocks; bd; bd = bd->link) {
+ debugBelch("%p\n", (void*)bd);
+ }
+ }
+
+ debugBelch("====== LARGE OBJECTS =======\n");
+ for (uint32_t gen_idx = 0; gen_idx <= oldest_gen->no; ++gen_idx) {
+ generation *gen = &generations[gen_idx];
+ debugBelch("Generation %d current large objects:\n", gen_idx);
+ for (bdescr *bd = gen->large_objects; bd; bd = bd->link) {
+ debugBelch("%p: ", (void*)bd);
+ printClosure((StgClosure*)bd->start);
+ }
+
+ debugBelch("Generation %d scavenged large objects:\n", gen_idx);
+ for (bdescr *bd = gen->scavenged_large_objects; bd; bd = bd->link) {
+ debugBelch("%p: ", (void*)bd);
+ printClosure((StgClosure*)bd->start);
+ }
+ }
+
+ debugBelch("============================\n");
+}
+
/* --------------------------------------------------------------------------
* Address printing code
*