diff options
| author | sewardj <unknown> | 2000-01-24 18:22:08 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-24 18:22:08 +0000 |
| commit | 9ac31f7c4db928dd4ef4ac9719074f64ee02a0d0 (patch) | |
| tree | 31ca481ac392c4c9b2bf37292992a9281ce263cb /ghc/compiler/codeGen | |
| parent | c81c46d2cdde4d3bb13e1f4d765e43b144ec6716 (diff) | |
| download | haskell-9ac31f7c4db928dd4ef4ac9719074f64ee02a0d0.tar.gz | |
[project @ 2000-01-24 18:22:07 by sewardj]
ARR_HDR_SIZE --> ARR_WORDS_HDR_SIZE, and derived quantities in
Constants.h, Constants.lhs et al are similarly renamed.
new constant ARR_PTRS_HDR_SIZE, with corresponding derivatives.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/SMRep.lhs | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/ghc/compiler/codeGen/SMRep.lhs b/ghc/compiler/codeGen/SMRep.lhs index 0e8f628d3f..aabcf40449 100644 --- a/ghc/compiler/codeGen/SMRep.lhs +++ b/ghc/compiler/codeGen/SMRep.lhs @@ -10,7 +10,8 @@ Other modules should access this info through ClosureInfo. module SMRep ( SMRep(..), ClosureType(..), isConstantRep, isStaticRep, - fixedHdrSize, arrHdrSize, fixedItblSize, pprSMRep + fixedHdrSize, arrWordsHdrSize, arrPtrsHdrSize, + fixedItblSize, pprSMRep #ifndef OMIT_NATIVE_CODEGEN , getSMRepClosureTypeInt @@ -50,7 +51,8 @@ module SMRep ( import CmdLineOpts import AbsCSyn ( Liveness(..) ) import Constants ( sTD_HDR_SIZE, pROF_HDR_SIZE, - gRAN_HDR_SIZE, tICKY_HDR_SIZE, aRR_HDR_SIZE, + gRAN_HDR_SIZE, tICKY_HDR_SIZE, + aRR_WORDS_HDR_SIZE, aRR_PTRS_HDR_SIZE, sTD_ITBL_SIZE, pROF_ITBL_SIZE, gRAN_ITBL_SIZE, tICKY_ITBL_SIZE ) import Outputable @@ -111,8 +113,11 @@ tickyHdrSize :: Int{-words-} tickyHdrSize | opt_DoTickyProfiling = tICKY_HDR_SIZE | otherwise = 0 -arrHdrSize :: Int{-words-} -arrHdrSize = fixedHdrSize + aRR_HDR_SIZE +arrWordsHdrSize :: Int{-words-} +arrWordsHdrSize = fixedHdrSize + aRR_WORDS_HDR_SIZE + +arrPtrsHdrSize :: Int{-words-} +arrPtrsHdrSize = fixedHdrSize + aRR_PTRS_HDR_SIZE \end{code} Size of an info table. |