Commit 6b539626 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Make -dverbose-core2core set verbosity = 2

This ensures that messages coming out with -dshow-passes 
also come out with -dverbose-core2core
parent 59197948
...@@ -344,7 +344,7 @@ data DynFlags = DynFlags { ...@@ -344,7 +344,7 @@ data DynFlags = DynFlags {
hscTarget :: HscTarget, hscTarget :: HscTarget,
hscOutName :: String, -- ^ Name of the output file hscOutName :: String, -- ^ Name of the output file
extCoreName :: String, -- ^ Name of the .hcr output file extCoreName :: String, -- ^ Name of the .hcr output file
verbosity :: Int, -- ^ Verbosity level: see "DynFlags#verbosity_levels" verbosity :: Int, -- ^ Verbosity level: see Note [Verbosity levels]
optLevel :: Int, -- ^ Optimisation level optLevel :: Int, -- ^ Optimisation level
simplPhases :: Int, -- ^ Number of simplifier phases simplPhases :: Int, -- ^ Number of simplifier phases
maxSimplIterations :: Int, -- ^ Max simplifier iterations maxSimplIterations :: Int, -- ^ Max simplifier iterations
...@@ -730,9 +730,8 @@ defaultDynFlags = ...@@ -730,9 +730,8 @@ defaultDynFlags =
} }
{- {-
#verbosity_levels# Note [Verbosity levels]
Verbosity levels: ~~~~~~~~~~~~~~~~~~~~~~~
0 | print errors & warnings only 0 | print errors & warnings only
1 | minimal verbosity: print "compiling M ... done." for each module. 1 | minimal verbosity: print "compiling M ... done." for each module.
2 | equivalent to -dshow-passes 2 | equivalent to -dshow-passes
...@@ -1475,7 +1474,8 @@ dynamic_flags = [ ...@@ -1475,7 +1474,8 @@ dynamic_flags = [
Supported Supported
, Flag "dsource-stats" (setDumpFlag Opt_D_source_stats) , Flag "dsource-stats" (setDumpFlag Opt_D_source_stats)
Supported Supported
, Flag "dverbose-core2core" (NoArg setVerboseCore2Core) , Flag "dverbose-core2core" (NoArg (do { setVerbosity (Just 2)
; setVerboseCore2Core }))
Supported Supported
, Flag "dverbose-stg2stg" (setDumpFlag Opt_D_verbose_stg2stg) , Flag "dverbose-stg2stg" (setDumpFlag Opt_D_verbose_stg2stg)
Supported Supported
...@@ -2029,7 +2029,8 @@ unSetDynFlag f = upd (\dfs -> dopt_unset dfs f) ...@@ -2029,7 +2029,8 @@ unSetDynFlag f = upd (\dfs -> dopt_unset dfs f)
-------------------------- --------------------------
setDumpFlag :: DynFlag -> OptKind DynP setDumpFlag :: DynFlag -> OptKind DynP
setDumpFlag dump_flag setDumpFlag dump_flag
= NoArg (setDynFlag dump_flag >> when want_recomp forceRecompile) = NoArg (do { setDynFlag dump_flag
; when want_recomp forceRecompile })
where where
-- Certain dumpy-things are really interested in what's going -- Certain dumpy-things are really interested in what's going
-- on during recompilation checking, so in those cases we -- on during recompilation checking, so in those cases we
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment