X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRtsFlags.h;h=88a634609820bca623bc261822fbf53ba9cad194;hb=7ea43827e739555c23f2b802a6a5eaf2a65570ae;hp=f7f79b6980328e78d6e7737fa5b12da3e158ca1e;hpb=4cc37e5758909aaec9ede20604ec4f01c04b54ea;p=ghc-hetmet.git

diff --git a/includes/RtsFlags.h b/includes/RtsFlags.h
index f7f79b6..88a6346 100644
--- a/includes/RtsFlags.h
+++ b/includes/RtsFlags.h
@@ -43,6 +43,8 @@ struct GC_FLAGS {
     rtsBool frontpanel;
 
     int idleGCDelayTime;	/* in milliseconds */
+
+    StgWord heapBase;           /* address to ask the OS for memory */
 };
 
 struct DEBUG_FLAGS {  
@@ -86,8 +88,7 @@ struct PROFILING_FLAGS {
 # define HEAP_BY_RETAINER       6
 # define HEAP_BY_LDV            7
 
-# define HEAP_BY_INFOPTR        1      /* DEBUG only */
-# define HEAP_BY_CLOSURE_TYPE   2      /* DEBUG only */
+# define HEAP_BY_CLOSURE_TYPE   8
 
     nat                 profileInterval;      /* delta between samples (in ms) */
     nat                 profileIntervalTicks; /* delta between samples (in 'ticks') */