[project @ 2005-11-24 16:51:18 by simonmar]

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

diff --git a/ghc/includes/RtsFlags.h b/ghc/includes/RtsFlags.h
index d0ab562..4a37d48 100644 (file)
--- a/ghc/includes/RtsFlags.h
+++ b/ghc/includes/RtsFlags.h
@@ -41,6 +41,8 @@ struct GC_FLAGS {
 
     rtsBool ringBell;
     rtsBool frontpanel;
+
+    int idleGCDelayTicks;      /* in milliseconds */
 };
 
 struct DEBUG_FLAGS {  
@@ -60,6 +62,7 @@ struct DEBUG_FLAGS {
     rtsBool linker;         /* 'l'   the object linker */
     rtsBool apply;          /* 'a' */
     rtsBool stm;            /* 'm' */
+    rtsBool squeeze;        /* 'z'  stack squeezing & lazy blackholing */
 };
 
 struct COST_CENTRE_FLAGS {