/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.27 2000/10/06 15:35:09 simonmar Exp $
+ * $Id: RtsFlags.h,v 1.31 2001/03/14 11:18:18 sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
FILE *statsFile;
nat giveStats;
#define NO_GC_STATS 0
-#define SUMMARY_GC_STATS 1
-#define VERBOSE_GC_STATS 2
+#define COLLECT_GC_STATS 1
+#define ONELINE_GC_STATS 2
+#define SUMMARY_GC_STATS 3
+#define VERBOSE_GC_STATS 4
nat maxStkSize; /* in *words* */
nat initialStkSize; /* in *words* */
rtsBool ringBell;
rtsBool squeezeUpdFrames;
+
+ rtsBool frontpanel;
};
/* Hack: this struct uses bitfields so that we can use a binary arg
#define DEBUG_MASK(n) ((nat)(ldexp(1,n)))
#define MAX_DEBUG_MASK ((nat)(ldexp(1,(MAX_DEBUG_OPTION+1))-1))
-#if defined(PROFILING) || defined(PAR)
- /* with PROFILING, full cost-centre stuff (also PROFILING_FLAGS);
- with PAR, just the four fixed cost-centres.
- */
struct COST_CENTRE_FLAGS {
unsigned int doCostCentres;
# define COST_CENTRES_SUMMARY 1
int profilerTicks; /* derived */
int msecsPerTick; /* derived */
};
-#endif
#ifdef PROFILING
struct PROFILING_FLAGS {
# define HEAP_BY_MOD 2
# define HEAP_BY_DESCR 4
# define HEAP_BY_TYPE 5
-# define HEAP_BY_TIME 6
rtsBool showCCSOnException;
# define MODchar 'M'
# define DESCRchar 'D'
# define TYPEchar 'Y'
-# define TIMEchar 'T'
+
+ char* modSelector;
+ char* descrSelector;
+ char* typeSelector;
+ char* ccSelector;
+
};
#elif defined(DEBUG)
# define NO_HEAP_PROFILING 0