[project @ 2001-11-08 16:17:35 by simonmar]

[ghc-hetmet.git] / ghc / includes / RtsFlags.h

diff --git a/ghc/includes/RtsFlags.h b/ghc/includes/RtsFlags.h
index 7ecb437..09c77a0 100644 (file)
--- a/ghc/includes/RtsFlags.h
+++ b/ghc/includes/RtsFlags.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.36 2001/08/07 10:11:05 simonmar Exp $
+ * $Id: RtsFlags.h,v 1.38 2001/08/31 11:42:44 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -35,7 +35,7 @@ struct GC_FLAGS {
     nat     steps;
     rtsBool squeezeUpdFrames;
 
-    rtsBool compact;
+    rtsBool compact;           /* True <=> "compact all the time" */
     double  compactThreshold;
 
     rtsBool ringBell;
@@ -69,7 +69,7 @@ struct DEBUG_FLAGS {
   rtsBool linker      : 1; /* 4096 */
 };
 
-#define MAX_DEBUG_OPTION     12
+#define MAX_DEBUG_OPTION     13
 #define DEBUG_MASK(n)        ((nat)(ldexp(1,n)))
 #define MAX_DEBUG_MASK       ((nat)(ldexp(1,(MAX_DEBUG_OPTION+1))-1))