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:
e24f61c
)
fix an assertion
author
Simon Marlow
<simonmar@microsoft.com>
Fri, 18 Jan 2008 16:09:10 +0000
(16:09 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Fri, 18 Jan 2008 16:09:10 +0000
(16:09 +0000)
rts/sm/Evac.c
patch
|
blob
|
history
diff --git
a/rts/sm/Evac.c
b/rts/sm/Evac.c
index
1c0a2d8
..
2ea4c28
100644
(file)
--- a/
rts/sm/Evac.c
+++ b/
rts/sm/Evac.c
@@
-170,7
+170,7
@@
unchain_thunk_selectors(StgSelector *p, StgClosure *val)
ASSERT(p->header.info == &stg_BLACKHOLE_info);
#endif
// val must be in to-space.
ASSERT(p->header.info == &stg_BLACKHOLE_info);
#endif
// val must be in to-space.
- ASSERT(Bdescr((P_)val)->gen_no > N || (Bdescr((P_)val)->flags & BF_EVACUATED));
+ ASSERT(!HEAP_ALLOCED(val) || Bdescr((P_)val)->gen_no > N || (Bdescr((P_)val)->flags & BF_EVACUATED));
prev = (StgSelector*)((StgClosure *)p)->payload[0];
prev = (StgSelector*)((StgClosure *)p)->payload[0];