/* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.156 2003/06/19 12:47:08 simonmar Exp $
+ * $Id: GC.c,v 1.158 2003/08/14 15:36:13 simonmar Exp $
*
* (c) The GHC Team 1998-2003
*
if (RtsFlags.GcFlags.generations == 1) {
old_to_blocks = g0s0->to_blocks;
g0s0->to_blocks = NULL;
+ g0s0->n_to_blocks = 0;
}
/* Keep a count of how many new blocks we allocated during this GC
b = 0;
bitmap = large_srt->l.bitmap[b];
size = (nat)large_srt->l.size;
- p = large_srt->srt;
+ p = (StgClosure **)large_srt->srt;
for (i = 0; i < size; ) {
if ((bitmap & 1) != 0) {
evacuate(*p);