X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FRtsFlags.h;h=209a0b3123fdc7c5c71e5891c22cffc8b35c2f25;hb=026fa45f1852a836a3bb182a76065da899c163cc;hp=301743aae777786c032fa29a1abf6caae483e194;hpb=a412def3679e76a01e99a8a04d6ee893f140a470;p=ghc-hetmet.git diff --git a/ghc/includes/RtsFlags.h b/ghc/includes/RtsFlags.h index 301743a..209a0b3 100644 --- a/ghc/includes/RtsFlags.h +++ b/ghc/includes/RtsFlags.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsFlags.h,v 1.39 2001/11/25 16:57:38 sof Exp $ + * $Id: RtsFlags.h,v 1.42 2002/07/17 09:21:49 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -10,6 +10,8 @@ #ifndef RTSFLAGS_H #define RTSFLAGS_H +#include + /* For defaults, see the @initRtsFlagsDefaults@ routine. */ struct GC_FLAGS { @@ -97,22 +99,20 @@ struct PROFILING_FLAGS { # define HEAP_BY_MOD 2 # define HEAP_BY_DESCR 4 # define HEAP_BY_TYPE 5 -/* Flags for retainer and lag-drag-void profiling */ # define HEAP_BY_RETAINER 6 # define HEAP_BY_LDV 7 rtsBool showCCSOnException; -# define CCchar 'C' -# define MODchar 'M' -# define DESCRchar 'D' -# define TYPEchar 'Y' + nat maxRetainerSetSize; char* modSelector; char* descrSelector; char* typeSelector; char* ccSelector; - + char* ccsSelector; + char* retainerSelector; + char* bioSelector; }; #elif defined(DEBUG)