diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-05-23 09:16:00 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-08-28 11:14:15 +0100 |
| commit | 86a2ebf8deae9505c7a183acf0847b3e53b43fee (patch) | |
| tree | 4a0827bae3476488cea3efd572e0876ab0eae76f /compiler/stranal | |
| parent | 6d48ce2925e3cc0e267c58367739d4064094af7f (diff) | |
| download | haskell-86a2ebf8deae9505c7a183acf0847b3e53b43fee.tar.gz | |
Comments only
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/WorkWrap.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs index f845151098..f7717ed28c 100644 --- a/compiler/stranal/WorkWrap.lhs +++ b/compiler/stranal/WorkWrap.lhs @@ -232,7 +232,7 @@ strictness. Eg if we have g :: Int -> Int g x = f x x -- Provokes a specialisation for f - module Bsr where + module Bar where import Foo h :: Int -> Int @@ -246,6 +246,10 @@ more robust to give the wrapper an Activation of (ActiveAfter 0), so that it becomes active in an importing module at the same time that it appears in the first place in the defining module. +At one stage I tried making the wrapper inlining always-active, and +that had a very bad effect on nofib/imaginary/x2n1; a wrapper was +inlined before the specialisation fired. + \begin{code} tryWW :: DynFlags -> FamInstEnvs |