Commit 9325140f authored by simonmar's avatar simonmar
Browse files

[project @ 1999-05-20 10:23:42 by simonmar]

+RTS -s<file> now gives "summary" statistics only (i.e. without the per-gc
stat lines).
parent 45dff0ad
/* -----------------------------------------------------------------------------
* $Id: RtsFlags.c,v 1.13 1999/05/11 16:47:55 keithw Exp $
* $Id: RtsFlags.c,v 1.14 1999/05/20 10:23:42 simonmar Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
......@@ -525,9 +525,11 @@ error = rtsTrue;
}
break;
case 'S': /* NB: no difference at present ! */
case 'S':
RtsFlags.GcFlags.giveStats ++;
case 's':
RtsFlags.GcFlags.giveStats ++; /* will be VERBOSE_GC_STATS */
RtsFlags.GcFlags.giveStats ++;
#ifdef PAR
/* Opening all those files would almost certainly fail... */
RtsFlags.ParFlags.parallelStats = rtsTrue;
......
/* -----------------------------------------------------------------------------
* $Id: Stats.c,v 1.12 1999/03/04 13:07:48 sof Exp $
* $Id: Stats.c,v 1.13 1999/05/20 10:23:43 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -354,7 +354,7 @@ stat_endGC(lnat alloc, lnat collect, lnat live, lnat copied, lnat gen)
double time = usertime();
double etime = elapsedtime();
if (RtsFlags.GcFlags.giveStats) {
if (RtsFlags.GcFlags.giveStats >= VERBOSE_GC_STATS) {
nat faults = pagefaults();
fprintf(sf, "%9ld %9ld %9ld",
......
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