/* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.116 2001/08/08 10:50:37 simonmar Exp $
+ * $Id: GC.c,v 1.117 2001/08/08 13:45:02 simonmar Exp $
*
* (c) The GHC Team 1998-1999
*
// Auto-enable compaction when the residency reaches a
// certain percentage of the maximum heap size (default: 30%).
if (RtsFlags.GcFlags.compact &&
+ max > 0 &&
oldest_gen->steps[0].n_blocks >
(RtsFlags.GcFlags.compactThreshold * max) / 100) {
oldest_gen->steps[0].is_compacted = 1;