X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2Fprof%2FCCS.h;h=90224d72a087d18e4c93390deb9e6b522fb97d96;hb=d20d32d788e2d6c088e6b03776c428df5bb004d3;hp=3512930b7bd7b15c21ce483413c9ed7e81348798;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/includes/rts/prof/CCS.h b/includes/rts/prof/CCS.h
index 3512930..90224d7 100644
--- a/includes/rts/prof/CCS.h
+++ b/includes/rts/prof/CCS.h
@@ -1,9 +1,14 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 2004
+ * (c) The GHC Team, 2009
  *
  * Macros for profiling operations in STG code
  *
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
+ *
  * ---------------------------------------------------------------------------*/
 
 #ifndef RTS_PROF_CCS_H
@@ -176,7 +181,6 @@ extern CostCentreStack * RTS_VAR(CCS_LIST);         /* registered CCS list */
 
 #define REGISTER_CC(cc)					\
 	do {						\
-	extern CostCentre cc[];				\
 	if ((cc)->link == (CostCentre *)0) {		\
 	    (cc)->link = CC_LIST;			\
 	    CC_LIST = (cc);				\
@@ -185,7 +189,6 @@ extern CostCentreStack * RTS_VAR(CCS_LIST);         /* registered CCS list */
 
 #define REGISTER_CCS(ccs)				\
 	do {						\
-	extern CostCentreStack ccs[];			\
         if ((ccs)->prevStack == (CostCentreStack *)0) {	\
 	  (ccs)->prevStack = CCS_LIST;			\
 	  CCS_LIST = (ccs);				\