[project @ 2003-11-17 14:31:55 by simonmar]

GC dead code.

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 5c35e58..9d6a7cc 100644 (file)
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -49,8 +49,6 @@ module Constants (
        mAX_Real_Double_REG,
        mAX_Real_Long_REG,
 
-       oTHER_TAG,
-
        mAX_INTLIKE, mIN_INTLIKE,
        mAX_CHARLIKE, mIN_CHARLIKE,
 
@@ -108,13 +106,6 @@ mIN_UPD_SIZE                       = (MIN_UPD_SIZE::Int)
 mIN_SIZE_NonUpdHeapObject      = (MIN_NONUPD_SIZE::Int)
 \end{code}
 
-Constants for semi-tagging; the tags associated with the data
-constructors will start at 0 and go up.
-
-\begin{code}
-oTHER_TAG = (INFO_OTHER_TAG :: Integer)        -- (-1) unevaluated, probably
-\end{code}
-
 \begin{code}
 mIN_INTLIKE, mAX_INTLIKE :: Integer    -- Only used to compare with (MachInt Integer)
 mIN_INTLIKE = MIN_INTLIKE