Merge branch 'wip/T14951' into wip/T14068 wip/T14068
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 21 Mar 2018 21:02:21 +0000 (17:02 -0400)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 21 Mar 2018 21:02:21 +0000 (17:02 -0400)
1  2 
compiler/simplCore/SimplCore.hs
compiler/specialise/SpecConstr.hs

@@@ -344,12 -346,12 +346,16 @@@ getCoreToDo dflag
  
          runWhen spec_constr CoreDoSpecConstr,
  
 +        -- simpl_phase 0 ["between-core-spec"] max_iter,
 +
 +        -- runWhen spec_constr CoreDoSpecConstr,
 +
          maybe_rule_check (Phase 0),
  
+         runWhen late_specialise
+           (CoreDoPasses [ CoreDoSpecialising
+                         , simpl_phase 0 ["post-late-spec"] max_iter]),
          -- Final clean-up simplification:
          simpl_phase 0 ["final"] max_iter,
  
Simple merge