projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
19fcb51
)
fix an assertion failure in prof/threaded/debug mode
author
Simon Marlow
<marlowsd@gmail.com>
Thu, 4 Dec 2008 10:12:01 +0000
(10:12 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Thu, 4 Dec 2008 10:12:01 +0000
(10:12 +0000)
rts/sm/Evac.c
patch
|
blob
|
history
diff --git
a/rts/sm/Evac.c
b/rts/sm/Evac.c
index
bbb7fe5
..
1c453fc
100644
(file)
--- 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