[project @ 2004-08-12 11:19:39 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / Constants.lhs

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 9c32fa1..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,
 
@@ -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).