diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2017-07-03 19:10:07 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-07-03 19:42:22 -0400 |
| commit | fd7a7a6363d8dde1813bc23cb4ef00ebb70a49c0 (patch) | |
| tree | eab8f5e155dbe389bfc43d577dee38970474dded /rts/RaiseAsync.c | |
| parent | 0836bfbd480b00a690937060fc98df5e26453078 (diff) | |
| download | haskell-fd7a7a6363d8dde1813bc23cb4ef00ebb70a49c0.tar.gz | |
Eagerly blackhole AP_STACKs
This fixes #13615. See the rather lengthy Note [AP_STACKs must be
eagerly blackholed] for details.
Reviewers: simonmar, austin, erikd, dfeuer
Subscribers: duog, dfeuer, hsyl20, rwbarton, thomie
GHC Trac Issues: #13615
Differential Revision: https://phabricator.haskell.org/D3695
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index e04a875e49..6f1ab79691 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -873,6 +873,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception, ap->size = words; ap->fun = (StgClosure *)sp[0]; + sp++; for(i=0; i < words; ++i) { ap->payload[i] = (StgClosure *)*sp++; |