X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.c;h=25241c746a83e186423ed70b7a7d4d342f43e897;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=f07b36a0fb26146da9cbbe79bdb3520ef0b54715;hpb=20fcaaba537c370bc7ccefaf5e21453ac09664b6;p=ghc-hetmet.git

diff --git a/rts/Threads.c b/rts/Threads.c
index f07b36a..25241c7 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -217,7 +217,12 @@ removeThreadFromDeQueue (Capability *cap,
 void
 tryWakeupThread (Capability *cap, StgTSO *tso)
 {
+    tryWakeupThread_(cap, deRefTSO(tso));
+}
 
+void
+tryWakeupThread_ (Capability *cap, StgTSO *tso)
+{
     traceEventThreadWakeup (cap, tso, tso->cap->no);
 
 #ifdef THREADED_RTS