Commit dfebb20f authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-08 13:45:02 by simonmar]

wibble
parent 93eab3e9
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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 * (c) The GHC Team 1998-1999
* *
...@@ -769,6 +769,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc ) ...@@ -769,6 +769,7 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
// Auto-enable compaction when the residency reaches a // Auto-enable compaction when the residency reaches a
// certain percentage of the maximum heap size (default: 30%). // certain percentage of the maximum heap size (default: 30%).
if (RtsFlags.GcFlags.compact && if (RtsFlags.GcFlags.compact &&
max > 0 &&
oldest_gen->steps[0].n_blocks > oldest_gen->steps[0].n_blocks >
(RtsFlags.GcFlags.compactThreshold * max) / 100) { (RtsFlags.GcFlags.compactThreshold * max) / 100) {
oldest_gen->steps[0].is_compacted = 1; oldest_gen->steps[0].is_compacted = 1;
......
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