diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2017-01-25 10:23:37 +0100 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2017-01-25 10:23:37 +0100 |
| commit | d4d760150a596fba0e3cc2753da8e1b2f1ba503d (patch) | |
| tree | 79dcc622b0a3e7810e1508780fdddbad22edaf52 | |
| parent | 65cc7620517abec9b3e0d9bfe644accd5f649fe5 (diff) | |
| download | haskell-wip/dup_app.tar.gz | |
Reduce dupAppSizewip/dup_app
| -rw-r--r-- | compiler/coreSyn/CoreUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs index d8e34adffb..a7ef8ae177 100644 --- a/compiler/coreSyn/CoreUtils.hs +++ b/compiler/coreSyn/CoreUtils.hs @@ -978,7 +978,7 @@ exprIsDupable dflags e decrement n = Just (n-1) dupAppSize :: Int -dupAppSize = 8 -- Size of term we are prepared to duplicate +dupAppSize = 4 -- 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. |