diff options
| -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 |