projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New flag -dsuppress-coercions to avoid printing coercions in Core dumps
[ghc-hetmet.git]
/
compiler
/
main
/
StaticFlags.hs
diff --git
a/compiler/main/StaticFlags.hs
b/compiler/main/StaticFlags.hs
index
ffa1584
..
2d3b3ad
100644
(file)
--- a/
compiler/main/StaticFlags.hs
+++ b/
compiler/main/StaticFlags.hs
@@
-22,6
+22,7
@@
module StaticFlags (
-- Output style options
opt_PprUserLength,
opt_SuppressUniques,
-- Output style options
opt_PprUserLength,
opt_SuppressUniques,
+ opt_SuppressCoercions,
opt_PprStyle_Debug,
opt_NoDebugOutput,
opt_PprStyle_Debug,
opt_NoDebugOutput,
@@
-182,6
+183,8
@@
opt_IgnoreDotGhci = lookUp (fsLit "-ignore-dot-ghci")
-- debugging opts
opt_SuppressUniques :: Bool
opt_SuppressUniques = lookUp (fsLit "-dsuppress-uniques")
-- debugging opts
opt_SuppressUniques :: Bool
opt_SuppressUniques = lookUp (fsLit "-dsuppress-uniques")
+opt_SuppressCoercions :: Bool
+opt_SuppressCoercions = lookUp (fsLit "-dsuppress-coercions")
opt_PprStyle_Debug :: Bool
opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug")
opt_PprUserLength :: Int
opt_PprStyle_Debug :: Bool
opt_PprStyle_Debug = lookUp (fsLit "-dppr-debug")
opt_PprUserLength :: Int
@@
-406,8
+409,8
@@
way_details =
, "-optc-DPROFILING" ],
Way WayEventLog "l" True "RTS Event Logging"
, "-optc-DPROFILING" ],
Way WayEventLog "l" True "RTS Event Logging"
- [ "-DEVENTLOG"
- , "-optc-DEVENTLOG" ],
+ [ "-DTRACING"
+ , "-optc-DTRACING" ],
Way WayTicky "t" True "Ticky-ticky Profiling"
[ "-DTICKY_TICKY"
Way WayTicky "t" True "Ticky-ticky Profiling"
[ "-DTICKY_TICKY"