projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
*
*
* 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
* ---------------------------------------------------------------------------*/
#ifndef RTS_PROF_CCS_H
@@
-176,7
+181,6
@@
extern CostCentreStack * RTS_VAR(CCS_LIST); /* registered CCS list */
#define REGISTER_CC(cc) \
do { \
#define REGISTER_CC(cc) \
do { \
- extern CostCentre cc[]; \
if ((cc)->link == (CostCentre *)0) { \
(cc)->link = CC_LIST; \
CC_LIST = (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 { \
#define REGISTER_CCS(ccs) \
do { \
- extern CostCentreStack ccs[]; \
if ((ccs)->prevStack == (CostCentreStack *)0) { \
(ccs)->prevStack = CCS_LIST; \
CCS_LIST = (ccs); \
if ((ccs)->prevStack == (CostCentreStack *)0) { \
(ccs)->prevStack = CCS_LIST; \
CCS_LIST = (ccs); \