diff options
| author | Tamar Christina <tamar@zhox.com> | 2019-06-16 21:54:23 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:01 -0400 |
| commit | 90e69f779b6da755fac472337535a1321cbb7917 (patch) | |
| tree | 935ccfc0e38bfae2133b926347edb51bafecdfa7 /rts/sm | |
| parent | 356dc3feae967b1c361130f1f356ef9ad6a693e4 (diff) | |
| download | haskell-90e69f779b6da755fac472337535a1321cbb7917.tar.gz | |
winio: Add IOPort synchronization primitive
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | rts/sm/Compact.c | 1 | ||||
| -rw-r--r-- | rts/sm/Sanity.c | 1 | ||||
| -rw-r--r-- | rts/sm/Scav.c | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 5031c535a1..b1250b77e0 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -461,6 +461,7 @@ thread_TSO (StgTSO *tso) || tso->why_blocked == BlockedOnMVarRead || tso->why_blocked == BlockedOnBlackHole || tso->why_blocked == BlockedOnMsgThrowTo + || tso->why_blocked == BlockedOnIOCompletion || tso->why_blocked == NotBlocked ) { thread_(&tso->block_info.closure); diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index ea64483418..2329b02016 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -618,6 +618,7 @@ checkTSO(StgTSO *tso) || tso->why_blocked == BlockedOnMVarRead || tso->why_blocked == BlockedOnBlackHole || tso->why_blocked == BlockedOnMsgThrowTo + || tso->why_blocked == BlockedOnIOCompletion || tso->why_blocked == NotBlocked ) { ASSERT(LOOKS_LIKE_CLOSURE_PTR(tso->block_info.closure)); diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index 501d958aae..dd9a96adf8 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -129,6 +129,7 @@ scavengeTSO (StgTSO *tso) || tso->why_blocked == BlockedOnMVarRead || tso->why_blocked == BlockedOnBlackHole || tso->why_blocked == BlockedOnMsgThrowTo + || tso->why_blocked == BlockedOnIOCompletion || tso->why_blocked == NotBlocked ) { evacuate(&tso->block_info.closure); |