Commit 17861c1b authored by sof's avatar sof
Browse files

[project @ 2002-01-30 01:06:14 by sof]

cope with the fact that StgTickyHeader is no more
parent ce56bd8b
......@@ -50,10 +50,10 @@ module SMRep (
import CmdLineOpts
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
\end{code}
......@@ -94,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
......@@ -104,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
......
......@@ -20,7 +20,6 @@ module Constants (
sTD_HDR_SIZE,
pROF_HDR_SIZE,
gRAN_HDR_SIZE,
tICKY_HDR_SIZE,
aRR_WORDS_HDR_SIZE,
aRR_PTRS_HDR_SIZE,
rESERVED_C_STACK_BYTES,
......@@ -192,7 +191,6 @@ Closure header sizes.
sTD_HDR_SIZE = (STD_HDR_SIZE :: Int)
pROF_HDR_SIZE = (PROF_HDR_SIZE :: Int)
gRAN_HDR_SIZE = (GRAN_HDR_SIZE :: Int)
tICKY_HDR_SIZE = (TICKY_HDR_SIZE :: Int)
aRR_WORDS_HDR_SIZE = (ARR_WORDS_HDR_SIZE :: Int)
aRR_PTRS_HDR_SIZE = (ARR_PTRS_HDR_SIZE :: Int)
\end{code}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment