X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsFlags.h;h=a0e6205df61aee3b1668fd313aff23374b776bec;hb=2aac7f2df6646c3b2e1ec515ccdd34607ece8e62;hp=4256c662defceaedb9971e99e1aa8431daa45031;hpb=70aa5c4f65747d874e2aa6f5e42e22e950757f71;p=ghc-hetmet.git

diff --git a/ghc/rts/RtsFlags.h b/ghc/rts/RtsFlags.h
index 4256c66..a0e6205 100644
--- a/ghc/rts/RtsFlags.h
+++ b/ghc/rts/RtsFlags.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.13 1999/05/11 16:47:56 keithw Exp $
+ * $Id: RtsFlags.h,v 1.14 1999/06/25 09:18:49 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -14,9 +14,10 @@
 
 struct GC_FLAGS {
     FILE   *statsFile;
-    nat	    giveStats; /* ToDo: replace with enum type? */
+    nat	    giveStats;
 #define NO_GC_STATS	 0
-#define VERBOSE_GC_STATS 1
+#define SUMMARY_GC_STATS 1
+#define VERBOSE_GC_STATS 2
 
     nat     maxStkSize;         /* in *words* */
     nat     initialStkSize;     /* in *words* */