[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