diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-03-10 21:43:15 +0000 |
|---|---|---|
| committer | Johan Tibell <johan.tibell@gmail.com> | 2014-03-11 20:01:54 +0100 |
| commit | b684f27ec7b3538ffd9401de70ef5685b8b71978 (patch) | |
| tree | 2c5f095d4bff3b51a328231c7ce3fb367113e7df /compiler/codeGen/StgCmmTicky.hs | |
| parent | a70e7b4762c75812254f7781bcd48139c4ec40dd (diff) | |
| download | haskell-b684f27ec7b3538ffd9401de70ef5685b8b71978.tar.gz | |
Refactor inline array allocation
- Move array representation knowledge into SMRep
- Separate out low-level heap-object allocation so that we can reuse
it from doNewArrayOp
- remove card-table initialisation, we can safely ignore the card
table for newly allocated arrays.
Diffstat (limited to 'compiler/codeGen/StgCmmTicky.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmTicky.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmTicky.hs b/compiler/codeGen/StgCmmTicky.hs index 3f3c3c5a19..50112f1ef8 100644 --- a/compiler/codeGen/StgCmmTicky.hs +++ b/compiler/codeGen/StgCmmTicky.hs @@ -415,7 +415,7 @@ tickyDynAlloc :: Maybe Id -> SMRep -> LambdaFormInfo -> FCode () -- -- TODO what else to count while we're here? tickyDynAlloc mb_id rep lf = ifTicky $ getDynFlags >>= \dflags -> - let bytes = wORD_SIZE dflags * heapClosureSize dflags rep + let bytes = wORD_SIZE dflags * heapClosureSizeW dflags rep countGlobal tot ctr = do bumpTickyCounterBy tot bytes |