[commit: ghc] wip/nfs-locking: Don't optimise GHC in Quickest flavour (0955d43)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:35:38 UTC 2017


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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/0955d43bbbde1ee3ab71d3a01bf3d2f6e53afbe9/ghc

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

commit 0955d43bbbde1ee3ab71d3a01bf3d2f6e53afbe9
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jun 21 20:10:31 2016 +0100

    Don't optimise GHC in Quickest flavour
    
    See #259, #268.


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

0955d43bbbde1ee3ab71d3a01bf3d2f6e53afbe9
 src/Settings/Flavours/Quickest.hs | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/src/Settings/Flavours/Quickest.hs b/src/Settings/Flavours/Quickest.hs
index cc1de6b..3696237 100644
--- a/src/Settings/Flavours/Quickest.hs
+++ b/src/Settings/Flavours/Quickest.hs
@@ -1,16 +1,9 @@
 module Settings.Flavours.Quickest (quickestFlavourArgs, quickestFlavourWays) where
 
-import Context
-import GHC
 import Predicate
 
-optimise :: Context -> Bool
-optimise Context {..} = stage == Stage0 && package `elem` [compiler, ghc]
-
 quickestFlavourArgs :: Args
-quickestFlavourArgs = builder Ghc ? do
-    context <- getContext
-    if optimise context then arg "-O" else arg "-O0"
+quickestFlavourArgs = builder Ghc ? arg "-O0"
 
 quickestFlavourWays :: Ways
 quickestFlavourWays = remove [profiling]



More information about the ghc-commits mailing list