Loopification works on the top level as well, and then go can
#14223: Casts get in the way of join points -------------------------------------+------------------------------------- Reporter: nomeata | Owner: (none) Type: task | Status: new Priority: normal | Milestone: Component: Compiler | Version: 8.2.1 Resolution: | Keywords: JoinPoints Operating System: Unknown/Multiple | Architecture: | Unknown/Multiple Type of failure: None/Unknown | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Comment (by simonpj): potentially be inlined Ok but only if it's small. Perhaps float-in should be quite aggressive and float even top-level bindings inward (albeit perhaps not through a a lambda): {{{ rec f = ..f... nonrec h = ..f.. === nonrec h = ...(letrec f = ...f... in f)... }}} That would do the job here. Then maybe the final float-out pass can be a bit mor eager about floating things to top level -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/14223#comment:6 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler