From 3d7ffacd15ac7f44393a2b0186972c8903a1b643 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 2 Dec 2010 16:08:38 +0000 Subject: [PATCH] removeThreadFromQueue: stub out the link field before returning (#4813) --- rts/Threads.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/rts/Threads.c b/rts/Threads.c index 0dee734..f6b1bac 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -163,9 +163,11 @@ removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso) if (t == tso) { if (prev) { setTSOLink(cap,prev,t->_link); + t->_link = END_TSO_QUEUE; return rtsFalse; } else { *queue = t->_link; + t->_link = END_TSO_QUEUE; return rtsTrue; } } @@ -190,7 +192,8 @@ removeThreadFromDeQueue (Capability *cap, *head = t->_link; flag = rtsTrue; } - if (*tail == tso) { + t->_link = END_TSO_QUEUE; + if (*tail == tso) { if (prev) { *tail = prev; } else { -- 1.7.10.4