don't forget to deRefTSO() in tryWakeupThread()

[ghc-hetmet.git] / rts / Threads.c

diff --git a/rts/Threads.c b/rts/Threads.c
index f07b36a..5723eac 100644 (file)
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -215,8 +215,9 @@ removeThreadFromDeQueue (Capability *cap,
    ------------------------------------------------------------------------- */
 
 void
-tryWakeupThread (Capability *cap, StgTSO *tso)
+tryWakeupThread (Capability *cap, StgTSO *tso_)
 {
+    StgTSO *tso = deRefTSO(tso_);
 
     traceEventThreadWakeup (cap, tso, tso->cap->no);