From a3ea8b447cb55279a5767ebe04d861da3b761924 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 4 Dec 2008 10:12:01 +0000 Subject: [PATCH] fix an assertion failure in prof/threaded/debug mode --- rts/sm/Evac.c | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 1.7.10.4