From 35beb255958545f401f4f2229953a6355d09476c Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 2 Dec 2009 13:40:20 +0000 Subject: [PATCH] sanity check the top stack frame, not the whole stack --- rts/Interpreter.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 5197510..b95d5a9 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -269,7 +269,8 @@ eval_obj: 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 ) { -- 1.7.10.4