Move tAG_BITS into platformConstants

2 files changed, 3 insertions, 12 deletions

diff --git a/includes/HaskellConstants.hs b/includes/HaskellConstants.hs
index e692a723d0..4ad7deef19 100644
--- a/includes/HaskellConstants.hs
+++ b/includes/HaskellConstants.hs
@@ -1,5 +1,4 @@
 
-import Data.Bits (shiftL)
 import Data.Word
 import Data.Int
 
@@ -57,14 +56,3 @@ tARGET_MAX_WORD = fromIntegral (maxBound :: TargetWord)
 tARGET_MAX_CHAR :: Int
 tARGET_MAX_CHAR = 0x10ffff
 
--- Amount of pointer bits used for semi-tagging constructor closures
-
-tAG_BITS :: Int
-tAG_BITS = TAG_BITS
-
-tAG_MASK :: Int
-tAG_MASK = (1 `shiftL` tAG_BITS) - 1
-
-mAX_PTR_TAG :: Int
-mAX_PTR_TAG = tAG_MASK
-
diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c
index 86bf63e5fd..558d709f94 100644
--- a/includes/mkDerivedConstants.c
+++ b/includes/mkDerivedConstants.c
@@ -697,6 +697,9 @@ main(int argc, char *argv[])
     // Number of bits to shift a bitfield left by in an info table.
     constantInt("bITMAP_BITS_SHIFT", BITMAP_BITS_SHIFT);
 
+    // Amount of pointer bits used for semi-tagging constructor closures
+    constantInt("tAG_BITS", TAG_BITS);
+
     switch (mode) {
     case Gen_Haskell_Type:
         printf("  } deriving (Read, Show)\n");