Commit 35beb255 authored by Simon Marlow's avatar Simon Marlow
Browse files

sanity check the top stack frame, not the whole stack

parent 5270423a
...@@ -269,7 +269,8 @@ eval_obj: ...@@ -269,7 +269,8 @@ eval_obj:
debugBelch("\n\n"); debugBelch("\n\n");
); );
IF_DEBUG(sanity,checkStackChunk(Sp, cap->r.rCurrentTSO->stack+cap->r.rCurrentTSO->stack_size)); // IF_DEBUG(sanity,checkStackChunk(Sp, cap->r.rCurrentTSO->stack+cap->r.rCurrentTSO->stack_size));
IF_DEBUG(sanity,checkStackFrame(Sp));
switch ( get_itbl(obj)->type ) { switch ( get_itbl(obj)->type ) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment