[commit: ghc] wip/T14137: No rhsCtxt for join points (17ff6ed)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T14137
Link       : http://ghc.haskell.org/trac/ghc/changeset/17ff6eda3501e74612185eff3df2c7e77a03683a/ghc

>---------------------------------------------------------------

commit 17ff6eda3501e74612185eff3df2c7e77a03683a
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Aug 24 19:15:55 2017 +0200

    No rhsCtxt for join points
    
    as proposed by SPJ in #14137. I don’t have a test case yet, nor full
    understanding of what is happening, but let’s see what perf.haskell.org
    says.


>---------------------------------------------------------------

17ff6eda3501e74612185eff3df2c7e77a03683a
 compiler/simplCore/OccurAnal.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/simplCore/OccurAnal.hs b/compiler/simplCore/OccurAnal.hs
index dbe1c48..b332a57 100644
--- a/compiler/simplCore/OccurAnal.hs
+++ b/compiler/simplCore/OccurAnal.hs
@@ -1555,6 +1555,7 @@ occAnalNonRecRhs env bndr bndrs body
   where
     -- See Note [Cascading inlines]
     env1 | certainly_inline = env
+         | Just _ <- willBeJoinId_maybe bndr = env
          | otherwise        = rhsCtxt env
 
     -- See Note [Sources of one-shot information]