From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 10 Mar 2006 20:43:43 +0000 (+0000)
Subject: extra sanity checking: call checkTSO() in resumeThread()
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=05dad81285b606521b550b690f3e645bb7dc8f75

extra sanity checking: call checkTSO() in resumeThread()
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 578328d..6d8fe63 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -2289,6 +2289,8 @@ resumeThread (void *task_)
     /* We might have GC'd, mark the TSO dirty again */
     dirtyTSO(tso);
 
+    IF_DEBUG(sanity, checkTSO(tso));
+
     return &cap->r;
 }