raiseAsync: fix bug that can cause a scavenge_stack panic for a thread
that has just been killed.
case STOP_FRAME:
// We've stripped the entire stack, the thread is now dead.
case STOP_FRAME:
// We've stripped the entire stack, the thread is now dead.
- sp += sizeofW(StgStopFrame);
tso->what_next = ThreadKilled;
tso->what_next = ThreadKilled;
+ tso->sp = frame + sizeofW(StgStopFrame);