/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.c,v 1.40 2001/07/23 10:42:37 simonmar Exp $
+ * $Id: RtsFlags.c,v 1.42 2001/07/23 23:37:35 andy Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
#else
RtsFlags.GcFlags.generations = 2;
RtsFlags.GcFlags.steps = 2;
+ RtsFlags.GcFlags.compact = rtsFalse;
RtsFlags.GcFlags.squeezeUpdFrames = rtsTrue;
#endif
#ifdef RTS_GTK_FRONTPANEL
" -m<n>% Minimum % of heap which must be available (default 3%)",
" -G<n> Number of generations (default: 2)",
" -T<n> Number of steps in younger generations (default: 2)",
+" -c Enable compaction for the oldest generation",
"",
" -t<file> One-line GC statistics (default file: <program>.stat)",
" -s<file> Summary GC statistics (with -Sstderr going to stderr)",
#if defined(PROFILING) || defined(PAR)
"",
" -px Time/allocation profile (XML) (output file <program>.prof)",
-" -p<sort> Time/allocation profile (output file <program>.prof)",
-" sort: T = time (default), A = alloc, C = cost centre label",
-" -P<sort> More detailed Time/Allocation profile",
+" -p Time/allocation profile (output file <program>.prof)",
+" -P More detailed Time/Allocation profile",
+" -Pa Give information about *all* cost centres",
# if defined(PROFILING)
"",
RtsFlags.GcFlags.ringBell = rtsTrue;
break;
+ case 'c':
+ RtsFlags.GcFlags.compact = rtsTrue;
+ break;
+
case 'F':
RtsFlags.GcFlags.oldGenFactor = atof(rts_argv[arg]+2);
case 'x':
RtsFlags.CcFlags.doCostCentres = COST_CENTRES_XML;
break;
+ case 'a':
+ RtsFlags.CcFlags.doCostCentres = COST_CENTRES_ALL;
+ break;
default:
RtsFlags.CcFlags.doCostCentres = COST_CENTRES_SUMMARY;
break;