From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 16 Jun 2006 14:07:50 +0000 (+0000)
Subject: comment out a non-true assertion
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c113e097ec1f3e864d0daefa76139686b9c1c312;hp=48ff2a03397d744e4b24797d7b16fdaf6feb576a

comment out a non-true assertion
---

diff --git a/rts/Threads.c b/rts/Threads.c
index b550cc6..f6c2800 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -485,7 +485,7 @@ unblockOne_ (Capability *cap, StgTSO *tso,
 {
   StgTSO *next;
 
-  ASSERT(get_itbl(tso)->type == TSO);
+  // NO, might be a WHITEHOLE: ASSERT(get_itbl(tso)->type == TSO);
   ASSERT(tso->why_blocked != NotBlocked);
 
   tso->why_blocked = NotBlocked;