From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Tue, 19 May 2009 05:58:07 +0000 (+0000)
Subject: Make -Odph imply -fsimplifier-phases=3
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ed8c9b25a7e5e1e8fa54196f542b50812163759e

Make -Odph imply -fsimplifier-phases=3
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 8bf069c..3505bb6 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -2041,12 +2041,15 @@ setOptLevel n dflags
 --                                      sometimes
 --    -fdicts-cheap                     always inline dictionaries
 --    -fmax-simplifier-iterations20     this is necessary sometimes
+--    -fsimplifier-phases=3             we use an additional simplifier phase
+--                                      for fusion
 --    -fno-spec-constr-threshold        run SpecConstr even for big loops
 --    -fno-spec-constr-count            SpecConstr as much as possible
 --    -finline-enough-args              hack to prevent excessive inlining
 --
 setDPHOpt :: DynFlags -> DynFlags
 setDPHOpt dflags = setOptLevel 2 (dflags { maxSimplIterations  = 20
+                                         , simplPhases         = 3
                                          , specConstrThreshold = Nothing
                                          , specConstrCount     = Nothing
                                          })