[project @ 2002-10-11 15:45:05 by simonpj]

[ghc-hetmet.git] / ghc / compiler / codeGen / SMRep.lhs

diff --git a/ghc/compiler/codeGen/SMRep.lhs b/ghc/compiler/codeGen/SMRep.lhs
index c338cf8..d3ea1d9 100644 (file)
--- a/ghc/compiler/codeGen/SMRep.lhs
+++ b/ghc/compiler/codeGen/SMRep.lhs
@@ -49,14 +49,12 @@ module SMRep (
 #include "HsVersions.h"
 
 import CmdLineOpts
-import AbsCSyn         ( Liveness(..) )
 import Constants       ( sTD_HDR_SIZE, pROF_HDR_SIZE,
-                         gRAN_HDR_SIZE, tICKY_HDR_SIZE, 
+                         gRAN_HDR_SIZE, tICKY_ITBL_SIZE, 
                           aRR_WORDS_HDR_SIZE, aRR_PTRS_HDR_SIZE,
                          sTD_ITBL_SIZE, pROF_ITBL_SIZE,
-                         gRAN_ITBL_SIZE, tICKY_ITBL_SIZE )
+                         gRAN_ITBL_SIZE )
 import Outputable
-import GlaExts         ( Int(..), Int#, (<#), (==#), (<#), (>#) )
 \end{code}
 
 %************************************************************************
@@ -96,7 +94,7 @@ Size of a closure header.
 
 \begin{code}
 fixedHdrSize :: Int{-words-}
-fixedHdrSize = sTD_HDR_SIZE + profHdrSize + granHdrSize + tickyHdrSize
+fixedHdrSize = sTD_HDR_SIZE + profHdrSize + granHdrSize
 
 profHdrSize  :: Int{-words-}
 profHdrSize  | opt_SccProfilingOn   = pROF_HDR_SIZE
@@ -106,10 +104,6 @@ granHdrSize  :: Int{-words-}
 granHdrSize  | opt_GranMacros      = gRAN_HDR_SIZE
             | otherwise            = 0
 
-tickyHdrSize :: Int{-words-}
-tickyHdrSize | opt_DoTickyProfiling = tICKY_HDR_SIZE
-            | otherwise            = 0
-
 arrWordsHdrSize   :: Int{-words-}
 arrWordsHdrSize   = fixedHdrSize + aRR_WORDS_HDR_SIZE