diff options
Diffstat (limited to 'rts/Threads.c')
| -rw-r--r-- | rts/Threads.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Threads.c b/rts/Threads.c index ab7af2e52c..b9f753234f 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -286,6 +286,7 @@ tryWakeupThread (Capability *cap, StgTSO *tso) switch (tso->why_blocked) { + case BlockedOnIOCompletion: case BlockedOnMVar: case BlockedOnMVarRead: { @@ -887,6 +888,8 @@ printThreadBlockage(StgTSO *tso) case BlockedOnMVarRead: debugBelch("is blocked on atomic MVar read @ %p", tso->block_info.closure); break; + case BlockedOnIOCompletion: + debugBelch("is blocked on I/O Completion port @ %p", tso->block_info.closure); break; case BlockedOnBlackHole: debugBelch("is blocked on a black hole %p", |