Skip to content

Commit

Permalink
don't make -ddump-if-trace imply -no-recomp
Browse files Browse the repository at this point in the history
  • Loading branch information
simonmar committed May 23, 2008
1 parent eb78c4c commit 842e9d6
Showing 1 changed file with 10 additions and 2 deletions.
12 changes: 10 additions & 2 deletions compiler/main/DynFlags.hs
Expand Up @@ -1160,7 +1160,8 @@ dynamic_flags = [
, ( "ddump-mod-cycles", setDumpFlag Opt_D_dump_mod_cycles)
, ( "ddump-view-pattern-commoning", setDumpFlag Opt_D_dump_view_pattern_commoning)
, ( "ddump-to-file", setDumpFlag Opt_DumpToFile)
, ( "ddump-hi-diffs", NoArg (setDynFlag Opt_D_dump_hi_diffs))
, ( "ddump-hi-diffs", setDumpFlag Opt_D_dump_hi_diffs)

, ( "dcore-lint", NoArg (setDynFlag Opt_DoCoreLinting))
, ( "dstg-lint", NoArg (setDynFlag Opt_DoStgLinting))
, ( "dcmm-lint", NoArg (setDynFlag Opt_DoCmmLinting))
Expand Down Expand Up @@ -1485,9 +1486,16 @@ unSetDynFlag f = upd (\dfs -> dopt_unset dfs f)
--------------------------
setDumpFlag :: DynFlag -> OptKind DynP
setDumpFlag dump_flag
= NoArg (setDynFlag Opt_ForceRecomp >> setDynFlag dump_flag)
| force_recomp = NoArg (setDynFlag Opt_ForceRecomp >> setDynFlag dump_flag)
| otherwise = NoArg (setDynFlag dump_flag)
where
-- Whenver we -ddump, switch off the recompilation checker,
-- else you don't see the dump!
-- However, certain dumpy-things are really interested in what's going
-- on during recompilation checking, so in those cases we
-- don't want to turn it off.
force_recomp = dump_flag `notElem` [Opt_D_dump_if_trace,
Opt_D_dump_hi_diffs]

setVerboseCore2Core :: DynP ()
setVerboseCore2Core = do setDynFlag Opt_ForceRecomp
Expand Down

0 comments on commit 842e9d6

Please sign in to comment.