diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-02-11 18:17:43 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-13 08:21:18 -0500 |
| commit | 6b890d76a252259843a6e87043f8f12e6a8a0aae (patch) | |
| tree | db7906be5b4c62580a4f72116a5f7fb02b027f09 /rts/Interpreter.c | |
| parent | 28683137a59607dfdac6add35aefc8676b7fa864 (diff) | |
| download | haskell-6b890d76a252259843a6e87043f8f12e6a8a0aae.tar.gz | |
Fix checkStackChunk() call in Interepter.c, enable an assertion
Fixes #16303
Diffstat (limited to 'rts/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index a3b179a4be..3450780ba5 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -938,7 +938,7 @@ run_BCO_fun: Sp_subW(2); SpW(1) = (W_)obj; SpW(0) = (W_)&stg_apply_interp_info; - checkStackChunk(Sp,SpLim); + checkStackChunk(Sp, cap->r.rCurrentTSO->stackobj->stack+cap->r.rCurrentTSO->stackobj->stack_size); Sp_addW(2); ); |