[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / includes / GhcConstants.lh

diff --git a/ghc/includes/GhcConstants.lh b/ghc/includes/GhcConstants.lh
index 08e6ea6..f769205 100644 (file)
--- a/ghc/includes/GhcConstants.lh
+++ b/ghc/includes/GhcConstants.lh
@@ -123,39 +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 GR_FILENAME_FMT                "%0.124s.gr"
-#define GR_FILENAME_FMT_GUM    "%0.120s.%03d.gr"
-#define HP_FILENAME_FMT                "%0.124s.hp"
-#define LIFE_FILENAME_FMT      "%0.122s.life"
-#define PROF_FILENAME_FMT      "%0.122s.prof"
-#define PROF_FILENAME_FMT_GUM  "%0.118s.%03d.prof"
-#define QP_FILENAME_FMT                "%0.124s.qp"
-#define STAT_FILENAME_FMT      "%0.122s.stat"
-#define TICKY_FILENAME_FMT     "%0.121s.ticky"
-#define TIME_FILENAME_FMT      "%0.122s.time"
-#define TIME_FILENAME_FMT_GUM  "%0.118s.%03d.time"
-\end{code}
-
-%************************************************************************
-%*                                                                     *
 \subsection[update-frame-size]{Update frame size}
 %*                                                                     *
 %************************************************************************
@@ -187,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
@@ -221,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}