Commit 299d4645 authored by Simon Marlow's avatar Simon Marlow

avoid record selector error on closureProf

parent a61db80b
......@@ -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
--------------------------------------
......
......@@ -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 }
-----------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment