[commit: ghc] wip/kavon-nosplit-llvm: reducing the degrees of freedom for debugging purposes (befcbd6)

[git at git.haskell.org]

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

On branch  : wip/kavon-nosplit-llvm
Link       : http://ghc.haskell.org/trac/ghc/changeset/befcbd6b23c5c827ba2e97a70f76b1db7c13b671/ghc

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

commit befcbd6b23c5c827ba2e97a70f76b1db7c13b671
Author: Kavon Farvardin <kavon at farvard.in>
Date:   Wed Jun 21 17:45:50 2017 +0100

    reducing the degrees of freedom for debugging purposes


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

befcbd6b23c5c827ba2e97a70f76b1db7c13b671
 compiler/main/DriverPipeline.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index 3935aad..ee0a031 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -1424,7 +1424,7 @@ runPhase (RealPhase SplitAs) _input_fn dflags
 
 runPhase (RealPhaseWithInfo mangInfo LlvmOpt) input_fn dflags
   = do
-    let opt_lvl  = max 0 (min 2 $ optLevel dflags)
+    let opt_lvl  = max 0 (min 0 $ optLevel dflags) -- FIXME(kavon) change back to min 2
         -- don't specify anything if user has specified commands. We do this
         -- for opt but not llc since opt is very specifically for optimisation
         -- passes only, so if the user is passing us extra options we assume
@@ -1478,7 +1478,7 @@ runPhase (RealPhaseWithInfo mangInfo LlvmLlc) input_fn dflags
     output_fn <- phaseOutputFilename next_phase
 
     liftIO $ SysTools.runLlvmLlc dflags
-                ([ SysTools.Option (llvmOpts !! opt_lvl),
+                ([ -- FIXME(kavon) SysTools.Option (llvmOpts !! opt_lvl),
                     SysTools.Option cpscall_workaround,
                     SysTools.Option $ "-relocation-model=" ++ rmodel,
                     SysTools.FileOption "" input_fn,