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