ghc/rts/ProfRts.h

   1 /* -----------------------------------------------------------------------------
   2  * $Id: ProfRts.h,v 1.3 1999/02/05 16:02:47 simonm Exp $
   3  *
   4  * (c) The GHC Team, 1998-1999
   5  *
   6  * Support for profiling
   7  *
   8  * ---------------------------------------------------------------------------*/
   9
  10 #ifdef PROFILING
  11
  12 void report_ccs_profiling ( void );
  13 void heap_profile_finish (void);
  14
  15 void initProfiling ( void );
  16 void endProfiling  ( void );
  17
  18 void heapCensus ( bdescr *bd );
  19
  20 void PrintNewStackDecls ( void );
  21
  22 void print_ccs (FILE *, CostCentreStack *);
  23
  24 void report_ccs_profiling( void );
  25
  26 # define TICK_FREQUENCY   50                      /* ticks per second */
  27 # define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
  28
  29 # define DEFAULT_INTERVAL TICK_FREQUENCY
  30
  31 extern rtsBool time_profiling;
  32
  33 #endif