diff options
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r-- | rts/PrimOps.cmm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index edbd435702..15f9e949b0 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -2222,7 +2222,7 @@ stg_readIOPortzh ( P_ ioport /* :: IOPort a */ ) StgMVar_head(ioport) = q; StgTSO__link(CurrentTSO) = q; StgTSO_block_info(CurrentTSO) = ioport; - StgTSO_why_blocked(CurrentTSO) = BlockedOnIOCompletion::I16; + StgTSO_why_blocked(CurrentTSO) = BlockedOnMVar::I16; //Unlocks the closure as well jump stg_block_readmvar(ioport); @@ -2328,8 +2328,8 @@ loop: // at this point. //Either there was no reader queued, or he must have been - //blocked on BlockedOnIOCompletion - ASSERT(why_blocked == BlockedOnIOCompletion); + //blocked on BlockedOnMVar + ASSERT(why_blocked == BlockedOnMVar); unlockClosure(ioport, info); return (1); |