X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsFlags.h;h=192ac616aa8649b8c053c6dce23edfd95919f6f2;hb=fb69fc467fd1c05d29bff65f8bf5ce74a0052982;hp=4ce4c762d1afde3757c3724c93a735a1c5a7972f;hpb=b9d8ddb91c9360e3165244520f31dcd28c396825;p=ghc-hetmet.git diff --git a/ghc/rts/RtsFlags.h b/ghc/rts/RtsFlags.h index 4ce4c76..192ac61 100644 --- a/ghc/rts/RtsFlags.h +++ b/ghc/rts/RtsFlags.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsFlags.h,v 1.24 2000/04/03 15:54:50 simonmar Exp $ + * $Id: RtsFlags.h,v 1.28 2000/11/01 11:41:47 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -35,6 +35,10 @@ struct GC_FLAGS { rtsBool ringBell; rtsBool squeezeUpdFrames; + +#ifdef RTS_GTK_FRONTPANEL + rtsBool frontpanel; +#endif }; /* Hack: this struct uses bitfields so that we can use a binary arg @@ -59,9 +63,12 @@ struct DEBUG_FLAGS { rtsBool prof : 1; /* 512 */ rtsBool gran : 1; /* 1024 */ rtsBool par : 1; /* 2048 */ + + /* The object linker */ + rtsBool linker : 1; /* 4096 */ }; -#define MAX_DEBUG_OPTION 11 +#define MAX_DEBUG_OPTION 12 #define DEBUG_MASK(n) ((nat)(ldexp(1,n))) #define MAX_DEBUG_MASK ((nat)(ldexp(1,(MAX_DEBUG_OPTION+1))-1)) @@ -76,7 +83,6 @@ struct COST_CENTRE_FLAGS { # define COST_CENTRES_ALL 3 # define COST_CENTRES_XML 4 - int ctxtSwitchTicks; /* derived */ int profilerTicks; /* derived */ int msecsPerTick; /* derived */ }; @@ -100,12 +106,6 @@ struct PROFILING_FLAGS { # 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 @@ -117,7 +117,8 @@ struct PROFILING_FLAGS { #endif /* DEBUG || PROFILING */ struct CONCURRENT_FLAGS { - int ctxtSwitchTime; /* in milliseconds */ + int ctxtSwitchTime; /* in milliseconds */ + int ctxtSwitchTicks; /* derived */ }; #ifdef PAR