/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.48 2005/02/03 10:59:05 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
rtsBool ringBell;
rtsBool frontpanel;
+
+ int idleGCDelayTicks; /* in milliseconds */
};
struct DEBUG_FLAGS {
- // flags to control debugging output & extra checking in various subsystems
- rtsBool scheduler; // 's'
- rtsBool interpreter; // 'i'
- rtsBool codegen; // 'c'
- rtsBool weak; // 'w'
- rtsBool gccafs; // 'G'
- rtsBool gc; // 'g'
- rtsBool block_alloc; // 'b'
- rtsBool sanity; // 'S' warning: might be expensive!
- rtsBool stable; // 't'
- rtsBool prof; // 'p'
- rtsBool gran; // 'r'
- rtsBool par; // 'P'
- rtsBool linker; // 'l' the object linker
- rtsBool apply; // 'a'
- rtsBool stm; // 'm'
+ /* flags to control debugging output & extra checking in various subsystems */
+ rtsBool scheduler; /* 's' */
+ rtsBool interpreter; /* 'i' */
+ rtsBool codegen; /* 'c' */
+ rtsBool weak; /* 'w' */
+ rtsBool gccafs; /* 'G' */
+ rtsBool gc; /* 'g' */
+ rtsBool block_alloc; /* 'b' */
+ rtsBool sanity; /* 'S' warning: might be expensive! */
+ rtsBool stable; /* 't' */
+ rtsBool prof; /* 'p' */
+ rtsBool gran; /* 'r' */
+ rtsBool par; /* 'P' */
+ rtsBool linker; /* 'l' the object linker */
+ rtsBool apply; /* 'a' */
+ rtsBool stm; /* 'm' */
+ rtsBool squeeze; /* 'z' stack squeezing & lazy blackholing */
};
struct COST_CENTRE_FLAGS {
};
#endif /* PAR */
-#ifdef SMP
+#ifdef THREADED_RTS
struct PAR_FLAGS {
nat nNodes; /* number of threads to run simultaneously */
unsigned int maxLocalSparks;
};
-#endif /* SMP */
+#endif /* THREADED_RTS */
#ifdef GRAN
struct GRAN_STATS_FLAGS {
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 maxThreads; /* ToDo: share with THREADED_RTS and GUM */
+ /* rtsBool labelling; */
nat packBufferSize;
nat packBufferSize_internal;
rtsBool RandomSteal; /* steal spark/thread from random proc */
rtsBool NoForward; /* no forwarding of fetch messages */
- // unsigned int debug;
- // rtsBool event_trace;
- // rtsBool event_trace_all;
+ /* unsigned int debug; */
+ /* rtsBool event_trace; */
+ /* rtsBool event_trace_all; */
};
#endif /* GRAN */
/* Put them together: */
typedef struct _RTS_FLAGS {
- // The first portion of RTS_FLAGS is invariant.
+ /* The first portion of RTS_FLAGS is invariant. */
struct GC_FLAGS GcFlags;
struct CONCURRENT_FLAGS ConcFlags;
struct DEBUG_FLAGS DebugFlags;
struct PROFILING_FLAGS ProfFlags;
struct TICKY_FLAGS TickyFlags;
-#if defined(SMP) || defined(PAR)
+#if defined(THREADED_RTS) || defined(PAR)
struct PAR_FLAGS ParFlags;
#endif
#ifdef GRAN
#ifdef COMPILING_RTS_MAIN
extern DLLIMPORT RTS_FLAGS RtsFlags;
#elif IN_STG_CODE
-// Hack because the C code generator can't generate '&label'.
+/* Hack because the C code generator can't generate '&label'. */
extern RTS_FLAGS RtsFlags[];
#else
extern RTS_FLAGS RtsFlags;