Tidy up file headers and copyrights; point to the wiki for docs

[ghc-hetmet.git] / includes / rts / prof / CCS.h

diff --git a/includes/rts/prof/CCS.h b/includes/rts/prof/CCS.h
index 3512930..90224d7 100644 (file)
--- 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);                             \