Report term sizes with -v3 even when -ddump is enabled
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 8 Jun 2016 11:02:29 +0000 (07:02 -0400)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Wed, 8 Jun 2016 11:02:42 +0000 (07:02 -0400)
This is the proper fix for the problem I tried solve with D2310
(committed as dd33245 and reverted in 44a3c18).

Reviewers: austin, goldfire, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2315

compiler/coreSyn/CoreLint.hs

index 0261f7e..9c5b033 100644 (file)
@@ -211,13 +211,14 @@ dumpPassResult :: DynFlags
                -> CoreProgram -> [CoreRule]
                -> IO ()
 dumpPassResult dflags unqual mb_flag hdr extra_info binds rules
-  | Just flag <- mb_flag
-  = Err.dumpSDoc dflags unqual flag (showSDoc dflags hdr) dump_doc
+  = do { forM_ mb_flag $ \flag ->
+           Err.dumpSDoc dflags unqual flag (showSDoc dflags hdr) dump_doc
 
-  | otherwise
-  = Err.debugTraceMsg dflags 2 size_doc
-          -- Report result size
-          -- This has the side effect of forcing the intermediate to be evaluated
+         -- Report result size
+         -- This has the side effect of forcing the intermediate to be evaluated
+         -- if it's not already forced by a -ddump flag.
+       ; Err.debugTraceMsg dflags 2 size_doc
+       }
 
   where
     size_doc = sep [text "Result size of" <+> hdr, nest 2 (equals <+> ppr (coreBindsStats binds))]