diff options
Diffstat (limited to 'compiler')
| -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 } ----------------------------------------------------------------------------- |