/* -----------------------------------------------------------------------------
- * $Id: StgProf.h,v 1.12 2001/10/18 13:19:49 simonmar Exp $
+ * $Id: StgProf.h,v 1.17 2003/11/12 17:27:04 sof Exp $
*
* (c) The GHC Team, 1998
*
/* used for accumulating costs at the end of the run... */
unsigned long time_ticks;
- unsigned long mem_alloc;
+ ullong mem_alloc;
char is_caf;
CostCentre *cc;
struct _CostCentreStack *prevStack;
struct _IndexTable *indexTable;
-
- unsigned long scc_count;
-
+
+ unsigned int selected;
+
+ ullong scc_count;
+
unsigned long time_ticks;
- unsigned long mem_alloc;
- unsigned long mem_resid;
+
+ ullong mem_alloc;
unsigned long inherited_ticks;
- unsigned long inherited_alloc;
+ ullong inherited_alloc;
CostCentre *root;
} CostCentreStack;
cc : cc_ident, \
prevStack : NULL, \
indexTable : NULL, \
+ selected : 0, \
scc_count : 0, \
time_ticks : 0, \
mem_alloc : 0, \
- mem_resid : 0, \
inherited_ticks : 0, \
inherited_alloc : 0, \
root : 0, \
* Time / Allocation Macros
* ---------------------------------------------------------------------------*/
-#define CCS_TICK(ccs) (ccs)->time_ticks++
-
/* eliminate profiling overhead from allocation costs */
#define CCS_ALLOC(ccs, size) (ccs)->mem_alloc += ((size)-sizeofW(StgProfHeader))
#define ENTER_CCS_PAP_CL(closure) \
ENTER_CCS_PAP((closure)->header.prof.ccs)
- /* temp EW */
-#define STATIC_CCS_REF(ccs) (ccs)
-
/* -----------------------------------------------------------------------------
When not profiling, these macros do nothing...
-------------------------------------------------------------------------- */