diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-12-02 13:40:20 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-02 13:40:20 +0000 |
commit | 35beb255958545f401f4f2229953a6355d09476c (patch) | |
tree | d69e96803f15fee4a4344e13572ea61674302402 /rts/Interpreter.c | |
parent | 5270423a6afe69f1dc57e5e5a474812182718d40 (diff) | |
download | haskell-35beb255958545f401f4f2229953a6355d09476c.tar.gz |
sanity check the top stack frame, not the whole stack
Diffstat (limited to 'rts/Interpreter.c')
-rw-r--r-- | rts/Interpreter.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 5197510766..b95d5a9030 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 ) { |