diff options
| author | simonmar@microsoft.com <unknown> | 2007-11-21 16:47:36 +0000 |
|---|---|---|
| committer | simonmar@microsoft.com <unknown> | 2007-11-21 16:47:36 +0000 |
| commit | a837a348cb76b36e502b7dcf6af8f0ff90514f24 (patch) | |
| tree | d92be027960508fe30024ab08687810f582fa9af /rts | |
| parent | 047b7c2f56d60e551892915dc6f47371a46389d7 (diff) | |
| download | haskell-a837a348cb76b36e502b7dcf6af8f0ff90514f24.tar.gz | |
assertion fix
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/Evac.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index 2fcc6c9b61..295a0305ac 100644 --- 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) { - 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 |