From: simonmar@microsoft.com <unknown>
Date: Wed, 21 Nov 2007 16:47:36 +0000 (+0000)
Subject: assertion fix
X-Git-Tag: Before_cabalised-GHC~283
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a837a348cb76b36e502b7dcf6af8f0ff90514f24

assertion fix
---

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 2fcc6c9..295a030 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -164,8 +164,11 @@ unchain_thunk_selectors(StgSelector *p, StgClosure *val)
     prev = NULL;
     while (p)
     {
-        ASSERT(p->header.info == &stg_BLACKHOLE_info
-              || p->header.info == &stg_WHITEHOLE_info);
+#ifdef THREADED_RTS
+        ASSERT(p->header.info == &stg_WHITEHOLE_info);
+#else
+        ASSERT(p->header.info == &stg_BLACKHOLE_info);
+#endif
         prev = (StgSelector*)((StgClosure *)p)->payload[0];
 
         // Update the THUNK_SELECTOR with an indirection to the