diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-16 20:55:26 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-16 20:55:26 +0100 |
| commit | b0f4c44ed777af599daf35035b0830b35e57fa4a (patch) | |
| tree | b2a96dbf9ca11cbcd3098d91ef6c368d8c538199 /compiler/codeGen/CgProf.hs | |
| parent | 7ecefb6b30c3b249bba0454586c4a008d66d567b (diff) | |
| download | haskell-b0f4c44ed777af599daf35035b0830b35e57fa4a.tar.gz | |
Move tAG_BITS into platformConstants
Diffstat (limited to 'compiler/codeGen/CgProf.hs')
| -rw-r--r-- | compiler/codeGen/CgProf.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/CgProf.hs b/compiler/codeGen/CgProf.hs index 4a611d1e1d..6d87ee7127 100644 --- a/compiler/codeGen/CgProf.hs +++ b/compiler/codeGen/CgProf.hs @@ -285,8 +285,8 @@ ldvRecordCreate closure = do dflags <- getDynFlags ldvEnterClosure :: ClosureInfo -> Code ldvEnterClosure closure_info = do dflags <- getDynFlags + let tag = funTag dflags closure_info ldvEnter (cmmOffsetB dflags (CmmReg nodeReg) (-tag)) - where tag = funTag closure_info -- don't forget to substract node's tag ldvEnter :: CmmExpr -> Code |