ghc/rts/parallel/ParTicky.h

   1 /* --------------------------------------------------------------------------
   2  * $Id: ParTicky.h,v 1.1 2001/03/22 03:51:11 hwloidl Exp $
   3  *
   4  * (c) Hans-Wolfgang Loidl, 2000-
   5  *
   6  * Header for ParTicky.c
   7  *
   8  * --------------------------------------------------------------------------*/
   9
  10 #if defined(PAR_TICKY)
  11
  12 /* macros */
  13 #define PAR_TICKY_PAR_START()              par_ticky_Par_start ()
  14 #define PAR_TICKY_PAR_END()                globalParStat_exit ()
  15 #define PAR_TICKY_REBUILD_GA_TABLES_START()  par_ticky_rebuildGAtables_start()
  16 #define PAR_TICKY_REBUILD_GA_TABLES_END(n, size_GA) par_ticky_rebuildGAtables_end(n, size_GA)
  17 #define PAR_TICKY_MARK_LOCAL_GAS_START()     par_ticky_markLocalGAs_start()
  18 #define PAR_TICKY_MARK_LOCAL_GAS_END(n)      par_ticky_markLocalGAs_end(n)
  19 #define PAR_TICKY_MARK_SPARK_QUEUE_START()   par_ticky_markSparkQueue_start()
  20 #define PAR_TICKY_MARK_SPARK_QUEUE_END(n)    par_ticky_markSparkQueue_end(n)
  21 #define PAR_TICKY_PACK_NEARBY_GRAPH_START()  (par_ticky_PackNearbyGraph_start())
  22 #define PAR_TICKY_PACK_NEARBY_GRAPH_END(n, thunks) par_ticky_PackNearbyGraph_end(n, thunks)
  23 #define PAR_TICKY_UNPACK_GRAPH_START()      par_ticky_UnpackGraph_start()
  24 #define PAR_TICKY_UNPACK_GRAPH_END(n,thunks) par_ticky_UnpackGraph_end(n,thunks)
  25 #define PAR_TICKY_TP()                     par_ticky_TP()
  26 #define PAR_TICKY_CNT_FREE_GA()            stats_CntFreeGA()
  27
  28 /* prototypes */
  29 extern void par_ticky_Par_start (void) ;
  30 extern void par_ticky_rebuildGAtables_start(void) ;
  31 extern void par_ticky_rebuildGAtables_end(nat n, nat size_GA) ;
  32 extern void par_ticky_markLocalGAs_start(void) ;
  33 extern void par_ticky_markLocalGAs_end(nat n) ;
  34 extern void par_ticky_markSparkQueue_start(void) ;
  35 extern void par_ticky_markSparkQueue_end(nat n) ;
  36 extern void par_ticky_PackNearbyGraph_start (void) ;
  37 extern void par_ticky_PackNearbyGraph_end(nat n, nat thunks) ;
  38 extern void par_ticky_UnpackGraph_start (void) ;
  39 extern void par_ticky_UnpackGraph_end(nat n, nat thunks) ;
  40 extern void par_ticky_TP (void) ;
  41 extern void globalParStat_exit(void);
  42
  43 #else
  44
  45 #define PAR_TICKY_PAR_START()
  46 #define PAR_TICKY_PAR_END()
  47 #define PAR_TICKY_REBUILD_GA_TABLES_START()
  48 #define PAR_TICKY_REBUILD_GA_TABLES_END(n, size_GA)
  49 #define PAR_TICKY_MARK_LOCAL_GAS_START()
  50 #define PAR_TICKY_MARK_LOCAL_GAS_END(n)
  51 #define PAR_TICKY_MARK_SPARK_QUEUE_START()
  52 #define PAR_TICKY_MARK_SPARK_QUEUE_END(n)
  53 #define PAR_TICKY_PACK_NEARBY_GRAPH_START ()
  54 #define PAR_TICKY_PACK_NEARBY_GRAPH_END(n, thunks)
  55 #define PAR_TICKY_UNPACK_GRAPH_START ()
  56 #define PAR_TICKY_UNPACK_GRAPH_END(n, thunks)
  57 #define PAR_TICKY_TP ()
  58 #define PAR_TICKY_CNT_FREE_GA()
  59
  60 #endif
  61