diff options
| author | simonpj@microsoft.com <unknown> | 2011-02-15 14:39:21 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2011-02-15 14:39:21 +0000 |
| commit | 53da379cee909d23b9f785c2250e64cba34ad3b2 (patch) | |
| tree | d6b52c2eddb8dc49ac7d48791d42d4a7eb6b7009 | |
| parent | c406b5bde899dd2b28e5239937c909d675bca356 (diff) | |
| download | haskell-53da379cee909d23b9f785c2250e64cba34ad3b2.tar.gz | |
Increase exprIsDupable threshold a bit
Now that exprIsDupable is less aggressive, test MethSharing wasn't
doing enough inlining. Increasing the threshold fixes the problem
but the real fix is in Trac #4960.
| -rw-r--r-- | compiler/coreSyn/CoreUtils.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index c901fc2ef0..0eab695dc6 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -481,7 +481,10 @@ exprIsDupable e decrement n = Just (n-1) dupAppSize :: Int -dupAppSize = 6 -- Size of term we are prepared to duplicate +dupAppSize = 8 -- Size of term we are prepared to duplicate + -- This is *just* big enough to make test MethSharing + -- inline enough join points. Really it should be + -- smaller, and could be if we fixed Trac #4960. \end{code} %************************************************************************ |