diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-23 13:00:32 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-23 13:00:32 +0000 |
| commit | f91610ed5832f850940b70dc55291311ff34b326 (patch) | |
| tree | 5ebc6f4f15fa2fe86e5b6a4b3922a46fa91d963e /compiler/main/StaticFlags.hs | |
| parent | b378873b416afbea1eda4ac375d7716811a5c2cf (diff) | |
| download | haskell-f91610ed5832f850940b70dc55291311ff34b326.tar.gz | |
Make -funfolding-dict-threshold work properly
and increase its default value. This makes overloaded functions
a bit keener to inline. Which fixes Trac #4321
Diffstat (limited to 'compiler/main/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index 52a86948e4..bc2ae38fc6 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -277,7 +277,11 @@ opt_UF_KeenessFactor :: Float opt_UF_CreationThreshold = lookup_def_int "-funfolding-creation-threshold" (45::Int) opt_UF_UseThreshold = lookup_def_int "-funfolding-use-threshold" (6::Int) opt_UF_FunAppDiscount = lookup_def_int "-funfolding-fun-discount" (6::Int) -opt_UF_DictDiscount = lookup_def_int "-funfolding-dict-discount" (1::Int) + +opt_UF_DictDiscount = lookup_def_int "-funfolding-dict-discount" (3::Int) + -- Be fairly keen to inline a fuction if that means + -- we'll be able to pick the right method from a dictionary + opt_UF_KeenessFactor = lookup_def_float "-funfolding-keeness-factor" (1.5::Float) opt_UF_DearOp = ( 4 :: Int) |