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 | |
| parent | 28683137a59607dfdac6add35aefc8676b7fa864 (diff) | |
| download | haskell-6b890d76a252259843a6e87043f8f12e6a8a0aae.tar.gz | |
Fix checkStackChunk() call in Interepter.c, enable an assertion
Fixes #16303
| -rw-r--r-- | rts/Interpreter.c | 2 | ||||
| -rw-r--r-- | rts/sm/Sanity.c | 2 |
2 files changed, 2 insertions, 2 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); ); diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index 28c9b432f8..8082b7e6d0 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -172,7 +172,7 @@ checkStackChunk( StgPtr sp, StgPtr stack_end ) while (p < stack_end) { p += checkStackFrame( p ); } - // ASSERT( p == stack_end ); -- HWL + ASSERT( p == stack_end ); } static void |