diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-08-23 16:07:22 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-08-25 11:12:32 +0100 |
| commit | 299d4645a54fc6083bf92034716ca225adce913e (patch) | |
| tree | 7d31d0687b4ad01b682a13976131c90ad33d3010 /compiler/codeGen | |
| parent | a61db80b86321474d819c9e43cd5066d39d465b9 (diff) | |
| download | haskell-299d4645a54fc6083bf92034716ca225adce913e.tar.gz | |
avoid record selector error on closureProf
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 6 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index 1bf726c7c3..498aea8c55 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -54,7 +54,7 @@ module StgCmmClosure ( isStaticClosure, cafBlackHoleClosureInfo, - staticClosureNeedsLink, clHasCafRefs + staticClosureNeedsLink, clHasCafRefs, clProfInfo, ) where #include "../includes/MachDeps.h" @@ -683,6 +683,10 @@ clHasCafRefs :: ClosureInfo -> CafInfo -- Backward compatibility; remove clHasCafRefs = closureCafs +clProfInfo :: ClosureInfo -> ProfilingInfo +clProfInfo ClosureInfo{ closureProf = p } = p +clProfInfo _ = NoProfilingInfo + -------------------------------------- -- Building ClosureInfos -------------------------------------- diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index c7156fa887..953aa1cdd2 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -405,7 +405,7 @@ mkCmmInfo :: ClosureInfo -> CmmInfoTable mkCmmInfo cl_info = CmmInfoTable { cit_lbl = infoTableLabelFromCI cl_info, cit_rep = closureSMRep cl_info, - cit_prof = closureProf cl_info, + cit_prof = clProfInfo cl_info, cit_srt = closureSRT cl_info } ----------------------------------------------------------------------------- |