Commit f33938a3 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-01-24 15:41:30 by simonmar]

make +RTS -Sstderr work in the interpreter
parent 65a4054e
/* -----------------------------------------------------------------------------
* $Id: RtsFlags.c,v 1.35 2000/12/19 12:50:37 simonmar Exp $
* $Id: RtsFlags.c,v 1.36 2001/01/24 15:41:30 simonmar Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
......@@ -670,16 +670,18 @@ error = rtsTrue;
#endif
case 'S':
RtsFlags.GcFlags.giveStats ++;
RtsFlags.GcFlags.giveStats = VERBOSE_GC_STATS;
goto stats;
case 's':
RtsFlags.GcFlags.giveStats ++;
RtsFlags.GcFlags.giveStats = SUMMARY_GC_STATS;
goto stats;
case 't':
RtsFlags.GcFlags.giveStats ++;
RtsFlags.GcFlags.giveStats = ONELINE_GC_STATS;
goto stats;
/* giveStats == 1 means "stats are being collected only" */
RtsFlags.GcFlags.giveStats ++;
stats:
#ifdef PAR
/* Opening all those files would almost certainly fail... */
RtsFlags.ParFlags.ParStats.Full = rtsTrue;
......
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