diff options
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 2626d78924..e09242b5ad 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -757,9 +757,16 @@ showUsage ghci dflags = do dump (c:s) = putChar c >> dump s dumpFinalStats :: Logger -> DynFlags -> IO () -dumpFinalStats logger dflags = +dumpFinalStats logger dflags = do when (gopt Opt_D_faststring_stats dflags) $ dumpFastStringStats logger dflags + when (dopt Opt_D_dump_faststrings dflags) $ do + fss <- getFastStringTable + let ppr_table = fmap ppr_segment (fss `zip` [0..]) + ppr_segment (s,n) = hang (text "Segment" <+> int n) 2 (vcat (fmap ppr_bucket (s `zip` [0..]))) + ppr_bucket (b,n) = hang (text "Bucket" <+> int n) 2 (vcat (fmap ftext b)) + dumpIfSet_dyn logger dflags Opt_D_dump_faststrings "FastStrings" FormatText (vcat ppr_table) + dumpFastStringStats :: Logger -> DynFlags -> IO () dumpFastStringStats logger dflags = do segments <- getFastStringTable |