/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.c,v 1.54 2001/11/28 14:55:34 simonmar Exp $
+ * $Id: RtsFlags.c,v 1.56 2001/12/12 14:31:43 simonmar Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
#ifdef PROFILING
RtsFlags.ProfFlags.doHeapProfile = rtsFalse;
- RtsFlags.ProfFlags.profileInterval = 20;
+ RtsFlags.ProfFlags.profileInterval = 100;
RtsFlags.ProfFlags.showCCSOnException = rtsFalse;
RtsFlags.ProfFlags.maxRetainerSetSize = 8;
RtsFlags.ProfFlags.modSelector = NULL;
RtsFlags.ProfFlags.descrSelector = NULL;
RtsFlags.ProfFlags.typeSelector = NULL;
RtsFlags.ProfFlags.ccSelector = NULL;
+ RtsFlags.ProfFlags.ccsSelector = NULL;
RtsFlags.ProfFlags.retainerSelector = NULL;
RtsFlags.ProfFlags.bioSelector = NULL;
" r = retainer",
" b = biography (LAG,DRAG,VOID,USE)",
" A subset of closures may be selected thusly:",
-" -hc<cc>,... specific cost centre(s) (NOT STACKS!)",
+" -hc<cc>,... specific cost centre(s) (top of stack only)",
+" -hC<cc>,... specific cost centre(s) (anywhere in stack)",
" -hm<mod>... all cost centres from the specified modules(s)",
" -hd<des>,... closures with specified closure descriptions",
" -hy<typ>... closures with specified type descriptions",
"",
" -R<size> Set the maximum retainer set size (default: 8)",
"",
-" -i<msec> Time between heap samples (msec, default: 20)",
+" -i<msec> Time between heap samples (msec, default: 100)",
"",
" -xc Show current cost centre stack on raising an exception",
# endif
*right = '\0';
switch (rts_argv[arg][2]) {
- case 'C':
case 'c': // cost centre label select
RtsFlags.ProfFlags.ccSelector = left;
break;
+ case 'C':
+ RtsFlags.ProfFlags.ccsSelector = left;
+ break;
case 'M':
case 'm': // cost centre module select
RtsFlags.ProfFlags.modSelector = left;