diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2017-03-29 11:20:36 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2017-04-03 11:47:43 +0100 |
commit | 9d6d205a4fdf36ecad50ba5fe88f956a7e3ce16a (patch) | |
tree | 437067f8349dc0feacb304efbb919489f05c7db4 | |
parent | cb18447c75e7673d5f57056fbdaa370d11e4c05e (diff) | |
download | haskell-wip/mpickering-unfolding-discounts.tar.gz |
Tweak unfolding defaultswip/mpickering-unfolding-discounts
-rw-r--r-- | compiler/main/DynFlags.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index a4095f1b10..97921c6b85 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 |