X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRtsFlags.h;fp=includes%2FRtsFlags.h;h=4bfe27636a522e9ea520c0c7b676b1e19b884ac6;hb=cbeb99efd4a117de5b028341dc41bc8f50717383;hp=f7f79b6980328e78d6e7737fa5b12da3e158ca1e;hpb=47e0b5e52240f8794b117e0dbde4e21f41ffe9ec;p=ghc-hetmet.git

diff --git a/includes/RtsFlags.h b/includes/RtsFlags.h
index f7f79b6..4bfe276 100644
--- a/includes/RtsFlags.h
+++ b/includes/RtsFlags.h
@@ -86,8 +86,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') */