diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-07-31 11:47:44 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-08-01 12:45:41 +0100 |
| commit | 6c06db13a670f156a79301c89b6bf2669d91af88 (patch) | |
| tree | 27be642a74fecaa923762caae821a26d2c5317e9 /compiler | |
| parent | aab5937405d379ee2e9ac0a54f145ca4005cf283 (diff) | |
| download | haskell-6c06db13a670f156a79301c89b6bf2669d91af88.tar.gz | |
add a comment
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index b5beb07ae9..cc3124028a 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -138,6 +138,9 @@ pprCmmGraph g $$ nest 2 (vcat $ map ppr blocks) $$ text "}" where blocks = postorderDfs g + -- postorderDfs has the side-effect of discarding unreachable code, + -- so pretty-printed Cmm will omit any unreachable blocks. This can + -- sometimes be confusing. --------------------------------------------- -- Outputting CmmNode and types which it contains |