From 4a445641a0c9e44a9c9e2916a45553c0ccb16a70 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 2 Dec 2009 13:41:21 +0000 Subject: [PATCH] don't sanity check the whole stack when switching interp<->compiled --- rts/Schedule.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/rts/Schedule.c b/rts/Schedule.c index 3ae1fe0..9e1fd0f 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1206,9 +1206,6 @@ scheduleHandleYield( Capability *cap, StgTSO *t, nat prev_what_next ) } #endif - IF_DEBUG(sanity, - //debugBelch("&& Doing sanity check on yielding TSO %ld.", t->id); - checkTSO(t)); ASSERT(t->_link == END_TSO_QUEUE); // Shortcut if we're just switching evaluators: don't bother @@ -1218,6 +1215,10 @@ scheduleHandleYield( Capability *cap, StgTSO *t, nat prev_what_next ) return rtsTrue; } + IF_DEBUG(sanity, + //debugBelch("&& Doing sanity check on yielding TSO %ld.", t->id); + checkTSO(t)); + addToRunQueue(cap,t); return rtsFalse; -- 1.7.10.4