X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsFlags.h;h=62ad3bd4a01629b3c737f639eb919d9af4304bd9;hb=2015743e65c7ca0ea9126c35178b1c6387e6ecae;hp=12fceb28ad14d0c6535cfc8bcb3a48918e4a7ba2;hpb=66f7a41dfbf02a000ef3fb2a2b84c89f5dd53177;p=ghc-hetmet.git

diff --git a/ghc/rts/RtsFlags.h b/ghc/rts/RtsFlags.h
index 12fceb2..62ad3bd 100644
--- a/ghc/rts/RtsFlags.h
+++ b/ghc/rts/RtsFlags.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.26 2000/08/03 11:28:35 simonmar Exp $
+ * $Id: RtsFlags.h,v 1.30 2000/12/19 12:50:37 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -16,8 +16,10 @@ struct GC_FLAGS {
     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* */
@@ -35,6 +37,8 @@ struct GC_FLAGS {
     rtsBool ringBell;
 
     rtsBool squeezeUpdFrames;
+
+    rtsBool frontpanel;
 };
 
 /* Hack: this struct uses bitfields so that we can use a binary arg
@@ -59,16 +63,15 @@ 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))
 
-#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
@@ -79,7 +82,6 @@ struct COST_CENTRE_FLAGS {
     int	    profilerTicks;   /* derived */
     int	    msecsPerTick;    /* derived */
 };
-#endif
 
 #ifdef PROFILING
 struct PROFILING_FLAGS {