From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 2 Dec 2009 13:41:21 +0000 (+0000)
Subject: don't sanity check the whole stack when switching interp<->compiled
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4a445641a0c9e44a9c9e2916a45553c0ccb16a70

don't sanity check the whole stack when switching interp<->compiled
---

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;