X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FConstants.lhs;h=9d6a7cc6384021ce2af7ded53f84d7caf1eb1a36;hb=7df227bff47727a1205988ed12a34ae1052d2a8d;hp=5c35e58e6ab8981bc12010249751a22f7537b656;hpb=69c5228776f837d5d7276ff2953c4a98b1908915;p=ghc-hetmet.git

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