Commit 392c2886 authored by Simon Marlow's avatar Simon Marlow

updateThunk: minor tweak to avoid an unnecessary call to checkBlockingQueues

parent 206c8fc3
......@@ -424,12 +424,16 @@ updateThunk (Capability *cap, StgTSO *tso, StgClosure *thunk, StgClosure *val)
updateWithIndirection(cap, thunk, val);
// sometimes the TSO is locked when we reach here, so its header
// might be WHITEHOLE. Hence check for the correct owner using
// pointer equality first.
if ((StgTSO*)v == tso) {
return;
}
i = v->header.info;
if (i == &stg_TSO_info) {
owner = (StgTSO*)v;
if (owner != tso) {
checkBlockingQueues(cap, tso);
}
checkBlockingQueues(cap, tso);
return;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment