diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-12-04 10:12:01 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-12-04 10:12:01 +0000 |
| commit | a3ea8b447cb55279a5767ebe04d861da3b761924 (patch) | |
| tree | d8e7a4f368b3c3960b26d0059379fad7cc1875c5 /rts | |
| parent | 19fcb519897270c9fcd2c0f707636e9682ff1b08 (diff) | |
| download | haskell-a3ea8b447cb55279a5767ebe04d861da3b761924.tar.gz | |
fix an assertion failure in prof/threaded/debug mode
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Evac.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index bbb7fe5795..1c453fc52e 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 |