X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.c;h=2c7b2beb8678e8736da7cbbe4d3eb562baff3640;hb=9fe7b8ea2136a4a07752b2851840c9366706f832;hp=65eaf8dc04b1b211031a62514d69c1e9ee47ffcf;hpb=8f52645bd99ee3e636a34826c0cbfc5939920da1;p=ghc-hetmet.git

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");
     }
 }