From 192c7d555448b8a78d57a5c01c0c20f642f2d0f3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 7 Jan 2009 15:14:49 +0000 Subject: [PATCH] indicate which TSOs are dirty in the printAllThreads() output --- rts/Threads.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/rts/Threads.c b/rts/Threads.c index 65eaf8d..2c7b2be 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -763,6 +763,11 @@ printThreadStatus(StgTSO *t) default: printThreadBlockage(t); } + if (t->flags & TSO_DIRTY) { + debugBelch(" (TSO_DIRTY)"); + } else if (t->flags & TSO_LINK_DIRTY) { + debugBelch(" (TSO_LINK_DIRTY)"); + } debugBelch("\n"); } } -- 1.7.10.4