#2297: Profiler is inconsistent about biography for GHC's heap
-----------------------+----------------------------------------------------
Reporter: igloo | Owner:
Type: bug | Status: new
Priority: normal | Milestone: 6.10 branch
Component: Profiling | Version: 6.9
Severity: normal | Resolution:
Keywords: | Difficulty: Unknown
Testcase: | Architecture: Unknown
Os: Unknown |
-----------------------+----------------------------------------------------
Comment (by igloo):
In case this doesn't get sorted soon, I think these are all the relevant
changes I've made:
{{{
hunk ./compiler/rename/RnBinds.lhs 40
-import Digraph ( SCC(..), stronglyConnComp )
+import Digraph
hunk ./compiler/rename/RnBinds.lhs 45
-import Util ( filterOut )
-import Monad ( foldM, unless )
+import Util
+import Monad
+import Control.Exception
+import Debug.Trace
hunk ./compiler/rename/RnBinds.lhs 321
- binds_w_dus <- mapBagM (rnBind (mkSigTvFn sigs') trim) mbinds
+ xs <- zipWithM (rnBind (mkSigTvFn sigs') trim) [1..] (bagToList
mbinds)
+ let binds_w_dus = listToBag xs
hunk ./compiler/rename/RnBinds.lhs 498
+ -> Int
hunk ./compiler/rename/RnBinds.lhs 501
-rnBind _ trim (L loc (PatBind { pat_lhs = pat,
- pat_rhs = grhss,
- -- pat fvs were stored here while
- -- processing the LHS
- bind_fvs=pat_fvs }))
+rnBind _ trim i (L loc (PatBind { pat_lhs = pat,
+ pat_rhs = grhss,
+ -- pat fvs were stored here while
+ -- processing the LHS
+ bind_fvs=pat_fvs }))
hunk ./compiler/rename/RnBinds.lhs 519
- trim
+ trim
+ i
hunk ./compiler/rename/RnBinds.lhs 528
- = setSrcSpan loc $
+ = i `seq` setSrcSpan loc $
hunk ./compiler/rename/RnBinds.lhs 537
- ; return (L loc (FunBind { fun_id = name,
+ ; return
+ (L loc (trace ("Using FunBind for " ++ show i)
+ (FunBind { fun_id = name,
hunk ./compiler/rename/RnBinds.lhs 544
- fun_tick = Nothing }),
+ fun_tick = Nothing })),
hunk ./compiler/rename/RnBinds.lhs 549
-rnBind _ _ b = pprPanic "rnBind" (ppr b)
+rnBind _ _ _ b = pprPanic "rnBind" (ppr b)
}}}
--
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/2297#comment:1>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler_______________________________________________
Glasgow-haskell-bugs mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
