/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.22 2000/03/08 17:48:24 simonmar Exp $
+ * $Id: RtsFlags.h,v 1.25 2000/04/19 12:42:48 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
nat generations;
nat steps;
- rtsBool forceGC; /* force a major GC every <interval> bytes */
- int forcingInterval; /* actually, stored as a number of *words* */
rtsBool ringBell;
rtsBool squeezeUpdFrames;
rtsBool par : 1; /* 2048 */
};
+#define MAX_DEBUG_OPTION 11
+#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.
# define DESCRchar 'D'
# define TYPEchar 'Y'
# define TIMEchar 'T'
-
- char *ccSelector;
- char *modSelector;
- char *descrSelector;
- char *typeSelector;
- char *kindSelector;
};
#elif defined(DEBUG)
# define NO_HEAP_PROFILING 0
rtsBool resume : 1; /* 16 */
rtsBool weight : 1; /* 32 */
rtsBool fetch : 1; /* 64 */
- rtsBool ack : 1; /* 128 */
- rtsBool fish : 1; /* 256 */
- rtsBool forward : 1; /* 512 */
+ rtsBool fish : 1; /* 128 */
+ rtsBool tables : 1; /* 256 */
+ rtsBool packet : 1; /* 512 */
rtsBool pack : 1; /* 1024 */
};
struct GRAN_COST_FLAGS Costs; /* cost metric for simulation */
struct GRAN_DEBUG_FLAGS Debug; /* debugging options */
+ nat maxThreads; // ToDo: share with SMP and GUM
// rtsBool labelling;
nat packBufferSize;
nat packBufferSize_internal;