diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-04-28 15:24:50 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-28 22:20:10 -0400 |
| commit | 22cf46980ad9b57eb428e7be045a1bc198b6380d (patch) | |
| tree | 7c85b09677c64ff93ae5055cbec2b9d042452031 /rts/Schedule.c | |
| parent | d182897e738ae1fb594ddc88cc27f607266ef5d1 (diff) | |
| download | haskell-22cf46980ad9b57eb428e7be045a1bc198b6380d.tar.gz | |
Revert "rts: Refactor handling of dead threads' stacks"
This reverts commit e09afbf2a998beea7783e3de5dce5dd3c6ff23db.
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 9b1e98ea17..fa48bef1a7 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1315,9 +1315,7 @@ scheduleHandleThreadFinished (Capability *cap, Task *task, StgTSO *t) if (t->what_next == ThreadComplete) { if (task->incall->ret) { // NOTE: return val is stack->sp[1] (see StgStartup.cmm) - StgDeadThreadFrame *dead = (StgDeadThreadFrame *) &task->incall->tso->stackobj->sp[0]; - ASSERT(dead->header.info == &stg_dead_thread_info); - *(task->incall->ret) = (StgClosure *) dead->result; + *(task->incall->ret) = (StgClosure *)task->incall->tso->stackobj->sp[1]; } task->incall->rstat = Success; } else { |