[commit: ghc] wip/T14152: Run exitification only early (e595228)

[git at git.haskell.org]

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

On branch  : wip/T14152
Link       : http://ghc.haskell.org/trac/ghc/changeset/e595228888f48ac81d8405fba8e8b09d4a9b6006/ghc

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

commit e595228888f48ac81d8405fba8e8b09d4a9b6006
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Oct 25 10:12:40 2017 -0400

    Run exitification only early
    
    (This is series of commit to measure and optimize placement.)


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

e595228888f48ac81d8405fba8e8b09d4a9b6006
 compiler/simplCore/SimplCore.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compiler/simplCore/SimplCore.hs b/compiler/simplCore/SimplCore.hs
index 5ed5cb0..45823d4 100644
--- a/compiler/simplCore/SimplCore.hs
+++ b/compiler/simplCore/SimplCore.hs
@@ -286,8 +286,6 @@ getCoreToDo dflags
 
         simpl_phases,
 
-        runWhen exitification CoreDoExitify,
-
                 -- Phase 0: allow all Ids to be inlined now
                 -- This gets foldr inlined before strictness analysis
 
@@ -314,8 +312,6 @@ getCoreToDo dflags
 
         runWhen strictness demand_analyser,
 
-        runWhen exitification CoreDoExitify,
-
         runWhen full_laziness $
            CoreDoFloatOutwards FloatOutSwitches {
                                  floatOutLambdas     = floatLamArgs dflags,
@@ -351,8 +347,6 @@ getCoreToDo dflags
 
         maybe_rule_check (Phase 0),
 
-        runWhen exitification CoreDoExitify,
-
         -- Final clean-up simplification:
         simpl_phase 0 ["final"] max_iter,