diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-08-03 10:21:43 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-08-03 10:21:43 +0000 |
| commit | 3042a5bd1fdb5a8484e3363e66e84a9cce4f02b5 (patch) | |
| tree | 355692d452a5ff74732e596b3a018932f3e07c90 | |
| parent | 7305dd722118cabc6feb3fca74bcac64236b1513 (diff) | |
| download | haskell-3042a5bd1fdb5a8484e3363e66e84a9cce4f02b5.tar.gz | |
FIX -ddump-cmm by temporarily disabling the gc_target part (#1582)
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 5ce008dfc1..9221c086af 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -130,14 +130,14 @@ instance Outputable CmmSafety where -- style of C--'s 'stackdata' declaration, just inside the proc body, -- and were labelled with the procedure name ++ "_info". pprInfo (CmmInfo gc_target update_frame CmmNonInfoTable) = - vcat [ptext SLIT("gc_target: ") <> - maybe (ptext SLIT("<none>")) pprBlockId gc_target, + vcat [{-ptext SLIT("gc_target: ") <> + maybe (ptext SLIT("<none>")) pprBlockId gc_target,-} ptext SLIT("update_frame: ") <> maybe (ptext SLIT("<none>")) pprUpdateFrame update_frame] pprInfo (CmmInfo gc_target update_frame (CmmInfoTable (ProfilingInfo closure_type closure_desc) tag info)) = - vcat [ptext SLIT("gc_target: ") <> - maybe (ptext SLIT("<none>")) pprBlockId gc_target, + vcat [{-ptext SLIT("gc_target: ") <> + maybe (ptext SLIT("<none>")) pprBlockId gc_target,-} ptext SLIT("update_frame: ") <> maybe (ptext SLIT("<none>")) pprUpdateFrame update_frame, ptext SLIT("type: ") <> pprLit closure_type, |