diff options
| author | Douglas Wilson <douglas.wilson@gmail.com> | 2021-12-19 12:55:56 +0000 |
|---|---|---|
| committer | Douglas Wilson <douglas.wilson@gmail.com> | 2021-12-19 12:55:56 +0000 |
| commit | f61909586c832d84ac622ba571d494f6bf64580c (patch) | |
| tree | eec67524b8493a9869c5a7dedf7636e629498765 /rts/Messages.h | |
| parent | 887d8b4c409c06257a63751e4e84c86ddf5cc874 (diff) | |
| download | haskell-wip/rts-inline.tar.gz | |
rts: Address failures to inlinewip/rts-inline
Diffstat (limited to 'rts/Messages.h')
| -rw-r--r-- | rts/Messages.h | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/rts/Messages.h b/rts/Messages.h index fef4510740..8cefcafd97 100644 --- a/rts/Messages.h +++ b/rts/Messages.h @@ -29,10 +29,7 @@ doneWithMsgThrowTo (Capability *cap, MessageThrowTo *m) // where we are a bit more lenient (#19075). ASSERT(n_capabilities == 1 || m->header.info == &stg_WHITEHOLE_info); IF_NONMOVING_WRITE_BARRIER_ENABLED { - updateRemembSetPushClosure(cap, (StgClosure *) m->link); - updateRemembSetPushClosure(cap, (StgClosure *) m->source); - updateRemembSetPushClosure(cap, (StgClosure *) m->target); - updateRemembSetPushClosure(cap, (StgClosure *) m->exception); + updateRemembSetPushMessageThrowTo(cap, m); } OVERWRITING_CLOSURE((StgClosure*)m); unlockClosure((StgClosure*)m, &stg_MSG_NULL_info); |