[commit: ghc] wip/mpickering-unfolding-discounts: Tweak unfolding defaults (41739f3)

[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/41739f3228ff5017862de4bb9857bc7422272133/ghc

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

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

    Tweak unfolding defaults


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

41739f3228ff5017862de4bb9857bc7422272133
 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 927d3c4..f2f6604 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1655,8 +1655,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