From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 4 Dec 2008 10:12:01 +0000 (+0000)
Subject: fix an assertion failure in prof/threaded/debug mode
X-Git-Tag: 2009-03-13~343
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a3ea8b447cb55279a5767ebe04d861da3b761924;p=ghc-hetmet.git

fix an assertion failure in prof/threaded/debug mode
---

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index bbb7fe5..1c453fc 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -943,8 +943,12 @@ selector_loop:
               // the original selector thunk, p.
               SET_INFO(p, (StgInfoTable *)info_ptr);
               LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC((StgClosure *)p);
+#if defined(THREADED_RTS)
+              SET_INFO(p, &stg_WHITEHOLE_info);
+#else
               SET_INFO(p, &stg_BLACKHOLE_info);
 #endif
+#endif
 
               // the closure in val is now the "value" of the
               // THUNK_SELECTOR in p.  However, val may itself be a