Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.2
http://hackage.haskell.org/trac/ghc/changeset/5c087fa844609c2ed9d03f1a66c01d8d0581118d >--------------------------------------------------------------- commit 5c087fa844609c2ed9d03f1a66c01d8d0581118d Author: Simon Peyton Jones <[email protected]> Date: Mon Jun 27 09:10:38 2011 +0100 More tracing in CoreUnfold >--------------------------------------------------------------- compiler/coreSyn/CoreUnfold.lhs | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index f849dfa..217ed47 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -813,7 +813,9 @@ callSiteInline dflags id active_unfolding lone_variable arg_infos cont_info | active_unfolding -> tryUnfolding dflags id lone_variable arg_infos cont_info unf_template is_top is_cheap is_exp uf_arity guidance - | otherwise -> Nothing + | dopt Opt_D_dump_inlinings dflags && dopt Opt_D_verbose_core2core dflags + -> pprTrace "Inactive unfolding:" (ppr id) Nothing + | otherwise -> Nothing NoUnfolding -> Nothing OtherCon {} -> Nothing DFunUnfolding {} -> Nothing -- Never unfold a DFun _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
