From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 10 Sep 2008 04:53:39 +0000 (+0000)
Subject: -Odph implies -fno-spec-constr-count
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dab80474aec701dab215ed0f9b9bfa904083182a

-Odph implies -fno-spec-constr-count
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index cf1d7e9..43ecba7 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -1860,10 +1860,12 @@ setOptLevel n dflags
 --    -fdicts-cheap                     always inline dictionaries
 --    -fmax-simplifier-iterations20     this is necessary sometimes
 --    -fno-spec-constr-threshold        run SpecConstr even for big loops
+--    -fno-spec-constr-count            SpecConstr as much as possible
 --
 setDPHOpt :: DynFlags -> DynFlags
 setDPHOpt dflags = setOptLevel 2 (dflags { maxSimplIterations  = 20
                                          , specConstrThreshold = Nothing
+                                         , specConstrCount     = Nothing
                                          })
                    `dopt_set`   Opt_DictsCheap
                    `dopt_unset` Opt_MethodSharing