[commit: ghc] master: [ci skip] includes: detabify/dewhitespace rts/prof/CCS.h (1c43f62)
git at git.haskell.org
git at git.haskell.org
Wed Aug 20 17:52:20 UTC 2014
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/1c43f620eeb65552614c6392e25f1404de291d6c/ghc
>---------------------------------------------------------------
commit 1c43f620eeb65552614c6392e25f1404de291d6c
Author: Austin Seipp <austin at well-typed.com>
Date: Wed Aug 20 12:46:24 2014 -0500
[ci skip] includes: detabify/dewhitespace rts/prof/CCS.h
Signed-off-by: Austin Seipp <austin at well-typed.com>
>---------------------------------------------------------------
1c43f620eeb65552614c6392e25f1404de291d6c
includes/rts/prof/CCS.h | 47 +++++++++++++++++++++++------------------------
1 file changed, 23 insertions(+), 24 deletions(-)
diff --git a/includes/rts/prof/CCS.h b/includes/rts/prof/CCS.h
index b121b03..85b03f3 100644
--- a/includes/rts/prof/CCS.h
+++ b/includes/rts/prof/CCS.h
@@ -190,21 +190,21 @@ void enterFunCCS (StgRegTable *reg, CostCentreStack *);
extern CostCentre * RTS_VAR(CC_LIST); // registered CC list
extern CostCentreStack * RTS_VAR(CCS_LIST); // registered CCS list
-#define REGISTER_CC(cc) \
- do { \
- if ((cc)->link == (CostCentre *)0) { \
- (cc)->link = CC_LIST; \
- CC_LIST = (cc); \
- (cc)->ccID = CC_ID++; \
- }} while(0)
-
-#define REGISTER_CCS(ccs) \
- do { \
- if ((ccs)->prevStack == (CostCentreStack *)0) { \
- (ccs)->prevStack = CCS_LIST; \
- CCS_LIST = (ccs); \
- (ccs)->ccsID = CCS_ID++; \
- }} while(0)
+#define REGISTER_CC(cc) \
+ do { \
+ if ((cc)->link == (CostCentre *)0) { \
+ (cc)->link = CC_LIST; \
+ CC_LIST = (cc); \
+ (cc)->ccID = CC_ID++; \
+ }} while(0)
+
+#define REGISTER_CCS(ccs) \
+ do { \
+ if ((ccs)->prevStack == (CostCentreStack *)0) { \
+ (ccs)->prevStack = CCS_LIST; \
+ CCS_LIST = (ccs); \
+ (ccs)->ccsID = CCS_ID++; \
+ }} while(0)
/* -----------------------------------------------------------------------------
* Declaring Cost Centres & Cost Centre Stacks.
@@ -224,17 +224,17 @@ extern CostCentreStack * RTS_VAR(CCS_LIST); // registered CCS list
# define CCS_DECLARE(ccs_ident,cc_ident,is_local) \
is_local CostCentreStack ccs_ident[1] \
- = {{ ccsID : 0, \
- cc : cc_ident, \
- prevStack : NULL, \
- indexTable : NULL, \
+ = {{ ccsID : 0, \
+ cc : cc_ident, \
+ prevStack : NULL, \
+ indexTable : NULL, \
root : NULL, \
depth : 0, \
selected : 0, \
- scc_count : 0, \
- time_ticks : 0, \
- mem_alloc : 0, \
- inherited_ticks : 0, \
+ scc_count : 0, \
+ time_ticks : 0, \
+ mem_alloc : 0, \
+ inherited_ticks : 0, \
inherited_alloc : 0 \
}};
@@ -252,4 +252,3 @@ extern CostCentreStack * RTS_VAR(CCS_LIST); // registered CCS list
#endif /* PROFILING */
#endif /* RTS_PROF_CCS_H */
-
More information about the ghc-commits
mailing list