Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/53da379cee909d23b9f785c2250e64cba34ad3b2 >--------------------------------------------------------------- commit 53da379cee909d23b9f785c2250e64cba34ad3b2 Author: [email protected] <unknown> Date: Tue Feb 15 14:39:21 2011 +0000 Increase exprIsDupable threshold a bit Now that exprIsDupable is less aggressive, test MethSharing wasn't doing enough inlining. Increasing the threshold fixes the problem but the real fix is in Trac #4960. >--------------------------------------------------------------- compiler/coreSyn/CoreUtils.lhs | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index c901fc2..0eab695 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -481,7 +481,10 @@ exprIsDupable e decrement n = Just (n-1) dupAppSize :: Int -dupAppSize = 6 -- Size of term we are prepared to duplicate +dupAppSize = 8 -- Size of term we are prepared to duplicate + -- This is *just* big enough to make test MethSharing + -- inline enough join points. Really it should be + -- smaller, and could be if we fixed Trac #4960. \end{code} %************************************************************************ _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
