X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FGhcConstants.lh;h=f769205711ebe6a73781d33c30f8712f387653a1;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=9971f85fabbed4ea9e3bd6613b60cf40093f02c4;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/includes/GhcConstants.lh b/ghc/includes/GhcConstants.lh
index 9971f85..f769205 100644
--- a/ghc/includes/GhcConstants.lh
+++ b/ghc/includes/GhcConstants.lh
@@ -123,35 +123,6 @@ Range of built-in table of static small int-like closures.
 
 %************************************************************************
 %*									*
-\subsection[string-size]{Maximum size of cost centre and description strings}
-%*									*
-%************************************************************************
-
-This is the maximum identifier length that can be used for a cost
-centre or description string. It includes the terminating null
-character.
-
-WDP 95/07: I think this STRING_SIZE thing is completely redundant.
-
-The printf formats are here, so we are less likely to make overly-long
-filenames (with disastrous results).  No more than 128 chars, please!
-
-\begin{code}
-#define STRING_SIZE 128
-
-#define STATS_FILENAME_MAXLEN	128
-
-#define TICKY_FILENAME_FMT	"%0.121s.ticky"
-#define STAT_FILENAME_FMT	"%0.122s.stat"
-#define PROF_FILENAME_FMT	"%0.122s.prof"
-#define PROF_FILENAME_FMT_GUM	"%0.118s.%03d.prof"
-#define TIME_FILENAME_FMT	"%0.122s.time"
-#define TIME_FILENAME_FMT_GUM	"%0.118s.%03d.time"
-#define HP_FILENAME_FMT		"%0.124s.hp"
-\end{code}
-
-%************************************************************************
-%*									*
 \subsection[update-frame-size]{Update frame size}
 %*									*
 %************************************************************************
@@ -183,7 +154,7 @@ If cost-centres are being used we have to add to the above sizes:
 If we are compiling C code the use of cost centres is determined at
 compile time so we use conditional macro definitions.
 \begin{code}
-#if defined(USE_COST_CENTRES)
+#if defined(PROFILING)
 #define STD_UF_SIZE	SCC_STD_UF_SIZE
 #define CON_UF_SIZE	SCC_CON_UF_SIZE
 #else
@@ -217,9 +188,12 @@ what.
 Tags for indirection nodes and ``other'' (probably unevaluated) nodes;
 normal-form values of algebraic data types will have tags 0, 1, ...
 
+@INFO_IND_TAG@ is different from @INFO_OTHER_TAG@ just so we can count
+how often we bang into indirection nodes; that's all.  (WDP 95/11)
+
 \begin{code}
 #define INFO_OTHER_TAG		(-1)
-#define INFO_IND_TAG		(-1)
+#define INFO_IND_TAG		(-2)
 #define INFO_FIRST_TAG		0
 \end{code}