Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
842e9d66
Commit
842e9d66
authored
May 23, 2008
by
Simon Marlow
Browse files
don't make -ddump-if-trace imply -no-recomp
parent
eb78c4c6
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
842e9d66
...
...
@@ -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
))
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment