Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c09cbb3360cc78fc2a0e6fab61ab36a7592a77e2 >--------------------------------------------------------------- commit c09cbb3360cc78fc2a0e6fab61ab36a7592a77e2 Author: Simon Peyton Jones <[email protected]> Date: Fri Nov 11 19:46:36 2011 +0000 Minor refactoring >--------------------------------------------------------------- compiler/simplCore/SimplCore.lhs | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) diff --git a/compiler/simplCore/SimplCore.lhs b/compiler/simplCore/SimplCore.lhs index 12d1806..1081ce0 100644 --- a/compiler/simplCore/SimplCore.lhs +++ b/compiler/simplCore/SimplCore.lhs @@ -191,8 +191,12 @@ getCoreToDo dflags core_todo = if opt_level == 0 then - [vectorisation, - simpl_phase 0 ["final"] max_iter] + [ vectorisation + , CoreDoSimplify max_iter + (base_mode { sm_phase = Phase 0 + , sm_names = ["Non-opt simplification"] }) + ] + else {- opt_level >= 1 -} [ -- We want to do the static argument transform before full laziness as it @@ -296,7 +300,6 @@ getCoreToDo dflags ] \end{code} - Loading plugins \begin{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
