From: simonmar <unknown>
Date: Mon, 17 Nov 2003 14:31:55 +0000 (+0000)
Subject: [project @ 2003-11-17 14:31:55 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~243
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=7df227bff47727a1205988ed12a34ae1052d2a8d

[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
--- 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