X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FConstants.lhs;h=9d6a7cc6384021ce2af7ded53f84d7caf1eb1a36;hb=b45779d16382c86ece0fbfae6bbdd99a1eae6965;hp=9c32fa1a3642907b779499f33b423ba153001c38;hpb=0bffc410964e1688ad80d277d53400659e697ab5;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 9c32fa1..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,
 
@@ -61,6 +59,7 @@ module Constants (
 	wORD64_SIZE,
 	
 	wORD_SIZE,
+	wORD_SIZE_IN_BITS,
 
 	bLOCK_SIZE,
 	bLOCK_SIZE_W,
@@ -107,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
@@ -220,6 +212,7 @@ Size of a word, in bytes
 
 \begin{code}
 wORD_SIZE = (SIZEOF_HSWORD :: Int)
+wORD_SIZE_IN_BITS = wORD_SIZE * 8 :: Int
 \end{code}
 
 Size of a storage manager block (in bytes).