From b0f4c44ed777af599daf35035b0830b35e57fa4a Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Sun, 16 Sep 2012 20:55:26 +0100
Subject: Move tAG_BITS into platformConstants

---
 includes/HaskellConstants.hs  | 12 ------------
 includes/mkDerivedConstants.c |  3 +++
 2 files changed, 3 insertions(+), 12 deletions(-)

(limited to 'includes')

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");
-- 
cgit v1.2.1