[project @ 1999-01-23 17:52:21 by sof]

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

diff --git a/ghc/rts/RtsFlags.h b/ghc/rts/RtsFlags.h
index 1939ebe..a82ec51 100644 (file)
--- a/ghc/rts/RtsFlags.h
+++ b/ghc/rts/RtsFlags.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsFlags.h,v 1.2 1998/12/02 13:28:40 simonm Exp $
+ * $Id: RtsFlags.h,v 1.5 1999/01/23 17:52:21 sof Exp $
  *
  * Datatypes that holds the command-line flag settings.
  *
@@ -21,11 +21,12 @@ struct GC_FLAGS {
 
     nat            maxHeapSize;        /* in *blocks* */
     nat     minAllocAreaSize;   /* in *blocks* */
+    nat     minOldGenSize;      /* in *blocks* */
+    double  oldGenFactor;
     double  pcFreeHeap;
 
-    rtsBool force2s; /* force the use of 2-space copying collection;
-                       forced to rtsTrue if we do *heap* profiling.
-                    */
+    nat     generations;
+
     rtsBool forceGC; /* force a major GC every <interval> bytes */
     int            forcingInterval; /* actually, stored as a number of *words* */
     rtsBool ringBell;
@@ -220,7 +221,7 @@ struct TICKY_FLAGS {
 
 struct RTS_FLAGS {
     struct GC_FLAGS    GcFlags;
-    struct DEBUG_FLAGS DebugFlags; /* unused at present */
+    struct DEBUG_FLAGS DebugFlags;
     struct CONCURRENT_FLAGS ConcFlags;
 
 #if defined(PROFILING) || defined(PAR)