Commit a4a52dfd authored by Ben Gamari's avatar Ben Gamari 🐢

More mutlist debugging

parent 0c62c839
......@@ -121,6 +121,9 @@ uint32_t mutlist_MUTVARS,
mutlist_TVAR_WATCH_QUEUE,
mutlist_TREC_CHUNK,
mutlist_TREC_HEADER,
mutlist_BLACKHOLE,
mutlist_TSO,
mutlist_STACK,
mutlist_OTHERS;
#endif
......@@ -259,6 +262,9 @@ GarbageCollect (uint32_t collect_gen,
mutlist_TVAR_WATCH_QUEUE = 0;
mutlist_TREC_CHUNK = 0;
mutlist_TREC_HEADER = 0;
mutlist_BLACKHOLE = 0;
mutlist_TSO = 0;
mutlist_STACK = 0;
mutlist_OTHERS = 0;
#endif
......@@ -618,11 +624,12 @@ GarbageCollect (uint32_t collect_gen,
#if defined(MUTLIST_DEBUG)
trace(TRACE_gc,
"mut_list_size: %lu (%d vars, %d arrays, %d MVARs, %d TVARs, %d TVAR_WATCH_QUEUEs, %d TREC_CHUNKs, %d TREC_HEADERs, %d others)",
"mut_list_size: %lu (%d vars, %d arrays, %d MVARs, %d TVARs, %d TVAR_WATCH_QUEUEs, %d TREC_CHUNKs, %d TREC_HEADERs, %d BLACKHOLEs, %d TSOs, %d STACKs, %d others)",
(unsigned long)(mut_list_size * sizeof(W_)),
mutlist_MUTVARS, mutlist_MUTARRS, mutlist_MVARS,
mutlist_TVAR, mutlist_TVAR_WATCH_QUEUE,
mutlist_TREC_CHUNK, mutlist_TREC_HEADER,
mutlist_BLACKHOLE, mutlist_TSO, mutlist_STACK,
mutlist_OTHERS);
#endif
}
......
......@@ -44,11 +44,17 @@ extern bool work_stealing;
#define MUTLIST_DEBUG
#if defined(MUTLIST_DEBUG)
extern uint32_t mutlist_MUTVARS, mutlist_MUTARRS, mutlist_MVARS, mutlist_OTHERS,
extern uint32_t mutlist_MUTVARS,
mutlist_MUTARRS,
mutlist_MVARS,
mutlist_TVAR,
mutlist_TVAR_WATCH_QUEUE,
mutlist_TREC_CHUNK,
mutlist_TREC_HEADER;
mutlist_TREC_HEADER,
mutlist_BLACKHOLE,
mutlist_TSO,
mutlist_STACK,
mutlist_OTHERS;
#endif
#if defined(PROF_SPIN) && defined(THREADED_RTS)
......
......@@ -1625,6 +1625,12 @@ scavenge_mutable_list(bdescr *bd, generation *gen)
else
mutlist_OTHERS++;
break;
case BLACKHOLE:
mutlist_BLACKHOLE++; break;
case TSO:
mutlist_TSO++; break;
case STACK:
mutlist_STACK++; break;
default:
mutlist_OTHERS++; break;
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment