Simon Peyton Jones pushed to branch wip/T26425 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Core/Unfold/Make.hs
    ... ... @@ -359,6 +359,8 @@ mkCoreUnfolding src top_lvl expr precomputed_cache guidance
    359 359
       = -- For large, non-top-level bindings, don't keep an unfolding at all if it is large
    
    360 360
         -- Keep top-level ones in case of -fexpose-all-unfoldings
    
    361 361
         -- Just an attempt to keep residency under control in deeply-nested let bindings
    
    362
    +    NoUnfolding
    
    363
    +
    
    362 364
       | otherwise
    
    363 365
       = CoreUnfolding { uf_tmpl = cache `seq`
    
    364 366
                                   occurAnalyseExpr expr