/* -----------------------------------------------------------------------------
- * $Id: StgProf.h,v 1.8 2000/03/08 17:48:26 simonmar Exp $
+ * $Id: StgProf.h,v 1.16 2001/12/12 14:59:41 simonmar Exp $
*
* (c) The GHC Team, 1998
*
#ifndef STGPROF_H
#define STGPROF_H
+/* -----------------------------------------------------------------------------
+ * Data Structures
+ * ---------------------------------------------------------------------------*/
+typedef struct _CostCentre {
+ int ccID;
+
+ char *label;
+ char *module;
+
+ /* used for accumulating costs at the end of the run... */
+ unsigned long time_ticks;
+ unsigned long long mem_alloc;
+
+ char is_caf;
+
+ struct _CostCentre *link;
+} CostCentre;
+
+
+typedef struct _CostCentreStack {
+ int ccsID;
+
+ CostCentre *cc;
+ struct _CostCentreStack *prevStack;
+ struct _IndexTable *indexTable;
+
+ unsigned int selected;
+
+ unsigned long long scc_count;
+
+ unsigned long time_ticks;
+ unsigned long long mem_alloc;
+
+ unsigned long inherited_ticks;
+ unsigned long long inherited_alloc;
+
+ CostCentre *root;
+} CostCentreStack;
+
+
+/* -----------------------------------------------------------------------------
+ * The rest is PROFILING only...
+ * ---------------------------------------------------------------------------*/
+
#if defined(PROFILING)
/* -----------------------------------------------------------------------------
+ * Constants
+ * ---------------------------------------------------------------------------*/
+
+#define EMPTY_STACK NULL
+#define EMPTY_TABLE NULL
+
+/* Constants used to set sumbsumed flag on CostCentres */
+
+#define CC_IS_CAF 'c' /* 'c' => *is* a CAF cc */
+#define CC_IS_BORING 'B' /* 'B' => *not* a CAF/sub cc */
+
+
+/* -----------------------------------------------------------------------------
+ * Data Structures
+ * ---------------------------------------------------------------------------*/
+
+typedef struct _IndexTable {
+ CostCentre *cc;
+ CostCentreStack *ccs;
+ struct _IndexTable *next;
+ unsigned int back_edge;
+} IndexTable;
+
+
+/* -----------------------------------------------------------------------------
+ Pre-defined cost centres and cost centre stacks
+ -------------------------------------------------------------------------- */
+
+extern CostCentreStack *CCCS; /* current CCS */
+
+extern CostCentre CC_MAIN[];
+extern CostCentreStack CCS_MAIN[]; /* Top CCS */
+
+extern CostCentre CC_SYSTEM[];
+extern CostCentreStack CCS_SYSTEM[]; /* RTS costs */
+
+extern CostCentre CC_GC[];
+extern CostCentreStack CCS_GC[]; /* Garbage collector costs */
+
+extern CostCentre CC_SUBSUMED[];
+extern CostCentreStack CCS_SUBSUMED[]; /* Costs are subsumed by caller */
+
+extern CostCentre CC_OVERHEAD[];
+extern CostCentreStack CCS_OVERHEAD[]; /* Profiling overhead */
+
+extern CostCentre CC_DONT_CARE[];
+extern CostCentreStack CCS_DONT_CARE[]; /* shouldn't ever get set */
+
+extern unsigned int CC_ID; /* global ids */
+extern unsigned int CCS_ID;
+extern unsigned int HP_ID;
+
+/* -----------------------------------------------------------------------------
+ * Functions
+ * ---------------------------------------------------------------------------*/
+
+CostCentreStack *EnterFunCCS ( CostCentreStack *cccs, CostCentreStack *ccsfn );
+CostCentreStack *PushCostCentre ( CostCentreStack *, CostCentre * );
+CostCentreStack *AppendCCS ( CostCentreStack *ccs1, CostCentreStack *ccs2 );
+
+extern unsigned int entering_PAP;
+
+/* -----------------------------------------------------------------------------
* Registering CCs
Cost centres are registered at startup by calling a registering
* Declaring Cost Centres & Cost Centre Stacks.
* -------------------------------------------------------------------------- */
-# define CC_DECLARE(cc_ident,name,module,subsumed,is_local) \
+# define CC_DECLARE(cc_ident,name,module,caf,is_local) \
is_local CostCentre cc_ident[1] \
= {{ 0, \
name, \
module, \
0, \
0, \
- subsumed, \
+ caf, \
0 }};
-# define CCS_DECLARE(ccs_ident,cc_ident,subsumed,is_local) \
+# define CCS_DECLARE(ccs_ident,cc_ident,is_local) \
is_local CostCentreStack ccs_ident[1] \
= {{ ccsID : 0, \
cc : cc_ident, \
prevStack : NULL, \
indexTable : NULL, \
+ selected : 0, \
scc_count : 0, \
- sub_scc_count : 0, \
- sub_cafcc_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 SET_CCC_X(cc,do_subcc_count,do_scc_count) \
do { \
- if (do_subcc_count) { CCCS->sub_scc_count++; } \
CCCS = PushCostCentre(CCCS,cc); \
if (do_scc_count) { CCCS->scc_count++; } \
} while(0)
do { \
(stack)->scc_count = 0; \
(stack)->time_ticks = 0; \
- (stack)->sub_cafcc_count = 0; \
(stack)->mem_alloc = 0; \
} while(0)
#define CCCS_DETAIL_COUNT(inc_this) /*nothing*/
#endif
-#define IS_CAF_OR_SUB_CCS(ccs) \
- /* tests for lower case character */ \
- ((ccs)->is_subsumed & ' ')
-
-
/* On entry to top level CAFs we count the scc ...*/
#define ENTER_CCS_CAF_X(ccs) \
do { \
- /* inc subcaf count of CCCS */ \
- CCCS->sub_cafcc_count++; \
/* set CCCS to ident ccs */ \
CCCS = (CostCentreStack *)(ccs); \
/* inc scc count of CAF ccs */ \
#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...
+ -------------------------------------------------------------------------- */
+#else /* !PROFILING */
+#define CCS_ALLOC(ccs, amount) doNothing()
+#define ENTER_CC_PAP_CL(r) doNothing()
+#define ENTER_CCS_PAP_CL(r) doNothing()
+
#endif /* PROFILING */
#endif /* STGPROF_H */
projects / ghc-hetmet.git / blobdiff