ghc/includes/Profiling.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: Profiling.h,v 1.8 2000/03/08 17:48:26 simonmar Exp $
   3  *
   4  * (c) The GHC Team, 1998-1999
   5  *
   6  * Cost-Centre Stack Profiling Include
   7  *
   8  * ---------------------------------------------------------------------------*/
   9
  10
  11 #ifndef PROFILING_H
  12 #define PROFILING_H
  13
  14 #if !defined(PROFILING)
  15
  16 #define CCS_ALLOC(ccs, amount) doNothing()
  17 #define ENTER_CC_PAP_CL(r)     doNothing()
  18 #define ENTER_CCS_PAP_CL(r)    doNothing()
  19
  20 #else /* PROFILING... */
  21
  22 /* -----------------------------------------------------------------------------
  23  * Constants
  24  * ---------------------------------------------------------------------------*/
  25
  26 #define EMPTY_STACK NULL
  27 #define EMPTY_TABLE NULL
  28
  29 /* Constants used to set sumbsumed flag on CostCentres */
  30
  31 #define CC_IS_CAF      'c'            /* 'c'  => *is* a CAF cc           */
  32 #define CC_IS_SUBSUMED 's'            /* 's'  => *is* a subsumed cc      */
  33 #define CC_IS_BORING   'B'            /* 'B'  => *not* a CAF/sub cc      */
  34
  35 /* Constants used for abreviated output of data in binary format.  The order
  36  * is important and corresponds to the "item" elementType in the XML log
  37  * description.   */
  38
  39 #define END_TAG 0
  40 #define CC_TAG 1
  41 #define CCS_TAG 2
  42 #define TYPE_CON_TAG 3
  43 #define HEAP_OBJ_TAG 4
  44 #define TIME_UPDATE_TAG 5
  45 #define HEAP_UPDATE_TAG 6
  46
  47
  48 /* -----------------------------------------------------------------------------
  49  * Data Structures
  50  * ---------------------------------------------------------------------------*/
  51 /*
  52  * CostCentre
  53  */
  54
  55 typedef struct _CostCentre {
  56   int ccID;
  57
  58   char *label;
  59   char *module;
  60
  61   /* used for accumulating costs at the end of the run... */
  62   unsigned long time_ticks;
  63   unsigned long mem_alloc;
  64
  65   char is_subsumed;
  66
  67   struct _CostCentre *link;
  68 } CostCentre;
  69
  70
  71
  72 /*
  73  * CostCentreStack
  74  */
  75
  76 typedef struct _CostCentreStack {
  77   int ccsID;
  78
  79   CostCentre *cc;
  80   struct _CostCentreStack *prevStack;
  81   struct _IndexTable *indexTable;
  82
  83   unsigned long scc_count;
  84   unsigned long sub_scc_count;
  85   unsigned long sub_cafcc_count;
  86
  87   unsigned long time_ticks;
  88   unsigned long mem_alloc;
  89   unsigned long mem_resid;
  90
  91   CostCentre *root;
  92 } CostCentreStack;
  93
  94
  95
  96 /*
  97  * IndexTable
  98  */
  99
 100 typedef struct _IndexTable {
 101   CostCentre *cc;
 102   CostCentreStack *ccs;
 103   struct _IndexTable *next;
 104   unsigned int back_edge;
 105 } IndexTable;
 106
 107
 108 /* -----------------------------------------------------------------------------
 109    Pre-defined cost centres and cost centre stacks
 110    -------------------------------------------------------------------------- */
 111
 112 extern CostCentreStack *CCCS;           /* current CCS */
 113
 114 extern CostCentre      CC_MAIN[];
 115 extern CostCentreStack CCS_MAIN[];      /* Top CCS */
 116
 117 extern CostCentre      CC_SYSTEM[];
 118 extern CostCentreStack CCS_SYSTEM[];    /* RTS costs */
 119
 120 extern CostCentre      CC_GC[];
 121 extern CostCentreStack CCS_GC[];         /* Garbage collector costs */
 122
 123 extern CostCentre      CC_SUBSUMED[];
 124 extern CostCentreStack CCS_SUBSUMED[];   /* Costs are subsumed by caller */
 125
 126 extern CostCentre      CC_OVERHEAD[];
 127 extern CostCentreStack CCS_OVERHEAD[];   /* Profiling overhead */
 128
 129 extern CostCentre      CC_DONTZuCARE[];
 130 extern CostCentreStack CCS_DONTZuCARE[]; /* shouldn't ever get set */
 131
 132 extern unsigned int CC_ID;      /* global id's */
 133 extern unsigned int CCS_ID;
 134 extern unsigned int HP_ID;
 135
 136 extern unsigned int interval_ticks;
 137 extern unsigned int earlier_ticks;
 138
 139 typedef unsigned int hash_t;
 140 extern hash_t time_intervals;
 141
 142 /* In RtsFlags.c, these are used to specify how to hash the data for
 143  * output.  None of this is necessary now since the viewer will be in
 144  * charge of ordering and displaying output.  */
 145 extern hash_t max_cc_no;                        /* Hash on CC ptr */
 146 extern hash_t max_mod_no;                       /* Hash on CC module */
 147 extern hash_t max_descr_no;                     /* Hash on closure description */
 148 extern hash_t max_type_no;                      /* Hash on type description */
 149
 150 /* -----------------------------------------------------------------------------
 151  * Functions
 152  * ---------------------------------------------------------------------------*/
 153
 154 CostCentreStack *EnterFunCCS ( CostCentreStack *cccs, CostCentreStack *ccsfn );
 155 CostCentreStack *PushCostCentre ( CostCentreStack *, CostCentre * );
 156 CostCentreStack *AppendCCS ( CostCentreStack *ccs1, CostCentreStack *ccs2 );
 157
 158 extern unsigned int entering_PAP;
 159
 160 #endif /* PROFILING */
 161
 162 #endif PROFILING_H