diff options
Diffstat (limited to 'rts/sm/Scav.c')
| -rw-r--r-- | rts/sm/Scav.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/rts/sm/Scav.c b/rts/sm/Scav.c index 18a30d3bdf..1549df5021 100644 --- a/rts/sm/Scav.c +++ b/rts/sm/Scav.c @@ -795,6 +795,13 @@ scavenge_block (bdescr *bd) break; } + case COMPACT_NFDATA: + // CompactNFData blocks live in compact lists, which we don't + // scavenge, because there nothing to scavenge in them + // so we should never ever see them + barf("scavenge: found unexpected Compact structure"); + break; + default: barf("scavenge: unimplemented/strange closure type %d @ %p", info->type, p); @@ -1953,7 +1960,7 @@ scavenge_large (gen_workspace *ws) // take this object *off* the large objects list and put it on // the scavenged large objects list. This is so that we can - // treat new_large_objects as a stack and push new objects on + // treat todo_large_objects as a stack and push new objects on // the front when evacuating. ws->todo_large_objects = bd->link; |