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:
047b7c2
)
assertion fix
author
simonmar@microsoft.com
<unknown>
Wed, 21 Nov 2007 16:47:36 +0000
(16:47 +0000)
committer
simonmar@microsoft.com
<unknown>
Wed, 21 Nov 2007 16:47:36 +0000
(16:47 +0000)
rts/sm/Evac.c
patch
|
blob
|
history
diff --git
a/rts/sm/Evac.c
b/rts/sm/Evac.c
index
2fcc6c9
..
295a030
100644
(file)
--- 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)
{
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
prev = (StgSelector*)((StgClosure *)p)->payload[0];
// Update the THUNK_SELECTOR with an indirection to the