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 AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
...@@ -670,28 +670,30 @@ error = rtsTrue; ...@@ -670,28 +670,30 @@ error = rtsTrue;
#endif #endif
case 'S': case 'S':
RtsFlags.GcFlags.giveStats ++; RtsFlags.GcFlags.giveStats = VERBOSE_GC_STATS;
goto stats;
case 's': case 's':
RtsFlags.GcFlags.giveStats ++; RtsFlags.GcFlags.giveStats = SUMMARY_GC_STATS;
goto stats;
case 't': case 't':
RtsFlags.GcFlags.giveStats ++; RtsFlags.GcFlags.giveStats = ONELINE_GC_STATS;
goto stats;
/* giveStats == 1 means "stats are being collected only" */ stats:
RtsFlags.GcFlags.giveStats ++;
#ifdef PAR #ifdef PAR
/* Opening all those files would almost certainly fail... */ /* Opening all those files would almost certainly fail... */
RtsFlags.ParFlags.ParStats.Full = rtsTrue; RtsFlags.ParFlags.ParStats.Full = rtsTrue;
RtsFlags.GcFlags.statsFile = stderr; /* temporary; ToDo: rm */ RtsFlags.GcFlags.statsFile = stderr; /* temporary; ToDo: rm */
#else #else
RtsFlags.GcFlags.statsFile RtsFlags.GcFlags.statsFile
= open_stats_file(arg, *argc, argv, = open_stats_file(arg, *argc, argv,
*rts_argc, rts_argv, STAT_FILENAME_FMT); *rts_argc, rts_argv, STAT_FILENAME_FMT);
if (RtsFlags.GcFlags.statsFile == NULL) error = rtsTrue; if (RtsFlags.GcFlags.statsFile == NULL) error = rtsTrue;
#endif #endif
break; break;
case 'Z': case 'Z':
RtsFlags.GcFlags.squeezeUpdFrames = rtsFalse; RtsFlags.GcFlags.squeezeUpdFrames = rtsFalse;
......
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