diff options
| author | benl@ouroborus.net <unknown> | 2010-06-11 04:46:14 +0000 |
|---|---|---|
| committer | benl@ouroborus.net <unknown> | 2010-06-11 04:46:14 +0000 |
| commit | 6608962356185ad7dd531050a35382c8b70ef827 (patch) | |
| tree | 084ed5059c8f410b9a5eac60de3b240db19495eb /rts/Messages.c | |
| parent | 565f3c753ccedeb19b5b8190090241a2185eb0cb (diff) | |
| download | haskell-6608962356185ad7dd531050a35382c8b70ef827.tar.gz | |
Fix #4131 missing UNTAG_CLOSURE in messageBlackHole()
Diffstat (limited to 'rts/Messages.c')
| -rw-r--r-- | rts/Messages.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Messages.c b/rts/Messages.c index 7a37a86259..f7cb809351 100644 --- a/rts/Messages.c +++ b/rts/Messages.c @@ -161,7 +161,7 @@ nat messageBlackHole(Capability *cap, MessageBlackHole *msg) const StgInfoTable *info; StgClosure *p; StgBlockingQueue *bq; - StgClosure *bh = msg->bh; + StgClosure *bh = UNTAG_CLOSURE(msg->bh); StgTSO *owner; debugTraceCap(DEBUG_sched, cap, "message: thread %d blocking on blackhole %p", |