Commit ed10f282 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-08-14 15:36:13 by simonmar]

Reset g0s0->n_to_blocks when using the two-space collector.  Fixes
ever-increasing live data count with +RTS -Sstderr -G1.
parent b4075d9d
/* -----------------------------------------------------------------------------
* $Id: GC.c,v 1.157 2003/06/26 20:47:47 panne Exp $
* $Id: GC.c,v 1.158 2003/08/14 15:36:13 simonmar Exp $
*
* (c) The GHC Team 1998-2003
*
......@@ -378,6 +378,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment