Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c29c28a463cd3ea86cb0cfa7d3d42c01f2923d4b >--------------------------------------------------------------- commit c29c28a463cd3ea86cb0cfa7d3d42c01f2923d4b Author: Simon Marlow <[email protected]> Date: Mon Nov 14 12:48:39 2011 +0000 -fprof-auto-top: eliminate some bogus extra SCCs we were adding >--------------------------------------------------------------- compiler/deSugar/Coverage.lhs | 3 --- 1 files changed, 0 insertions(+), 3 deletions(-) diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index 5e55347..fd2895d 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -550,9 +550,6 @@ addTickGRHSBody isOneOfMany isLambda expr@(L pos e0) = do addPathEntry "\\" $ allocTickBox (ExpBox False) True{-count-} False{-not top-} pos $ addTickHsExpr e0 - TickTopFunctions -> - allocTickBox (ExpBox False) False{-no count-} True{-top-} pos $ - addTickHsExpr e0 _otherwise -> addTickLHsExprAlways expr _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
