[commit: ghc] wip/mpickering-unfolding-discounts: Tweak unfolding defaults (9d6d205)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/mpickering-unfolding-discounts
Link       : http://ghc.haskell.org/trac/ghc/changeset/9d6d205a4fdf36ecad50ba5fe88f956a7e3ce16a/ghc

>---------------------------------------------------------------

commit 9d6d205a4fdf36ecad50ba5fe88f956a7e3ce16a
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Wed Mar 29 11:20:36 2017 +0100

    Tweak unfolding defaults


>---------------------------------------------------------------

9d6d205a4fdf36ecad50ba5fe88f956a7e3ce16a
 compiler/main/DynFlags.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index a4095f1..97921c6 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1675,8 +1675,8 @@ defaultDynFlags mySettings =
         -- E.g. 450 is not enough in 'fulsom' for Interval.sqr to inline
         -- into Csg.calc (The unfolding for sqr never makes it into the
         -- interface file.)
-        ufCreationThreshold = 750,
-        ufUseThreshold      = 60,
+        ufCreationThreshold = 2000,
+        ufUseThreshold      = 400,
         ufFunAppDiscount    = 60,
         -- Be fairly keen to inline a function if that means
         -- we'll be able to pick the right method from a dictionary