diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 17:36:47 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 17:36:47 +0100 |
| commit | ac6edfae76aac302c0190895d5203c584a3a2f4b (patch) | |
| tree | 2e15eea87f6b6e717d652956672cd442d35820cf /compiler/cmm/PprCmmDecl.hs | |
| parent | 5633b56169b49dfb96e4add8475e3c4303db7e1e (diff) | |
| download | haskell-ac6edfae76aac302c0190895d5203c584a3a2f4b.tar.gz | |
Remove more redundant Platform arguments
Diffstat (limited to 'compiler/cmm/PprCmmDecl.hs')
| -rw-r--r-- | compiler/cmm/PprCmmDecl.hs | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/compiler/cmm/PprCmmDecl.hs b/compiler/cmm/PprCmmDecl.hs index 80c5b813ce..41653dcd9f 100644 --- a/compiler/cmm/PprCmmDecl.hs +++ b/compiler/cmm/PprCmmDecl.hs @@ -62,15 +62,14 @@ import SMRep pprCmms :: (Outputable info, Outputable g) - => Platform -> [GenCmmGroup CmmStatics info g] -> SDoc -pprCmms _ cmms = pprCode CStyle (vcat (intersperse separator $ map ppr cmms)) + => [GenCmmGroup CmmStatics info g] -> SDoc +pprCmms cmms = pprCode CStyle (vcat (intersperse separator $ map ppr cmms)) where separator = space $$ ptext (sLit "-------------------") $$ space writeCmms :: (Outputable info, Outputable g) => DynFlags -> Handle -> [GenCmmGroup CmmStatics info g] -> IO () -writeCmms dflags handle cmms = printForC dflags handle (pprCmms platform cmms) - where platform = targetPlatform dflags +writeCmms dflags handle cmms = printForC dflags handle (pprCmms cmms) ----------------------------------------------------------------------------- @@ -85,7 +84,7 @@ instance Outputable CmmStatic where ppr x = sdocWithPlatform $ \platform -> pprStatic platform x instance Outputable CmmInfoTable where - ppr x = sdocWithPlatform $ \platform -> pprInfoTable platform x + ppr = pprInfoTable ----------------------------------------------------------------------------- @@ -120,11 +119,10 @@ pprTop _ (CmmData section ds) = -- -------------------------------------------------------------------------- -- Info tables. -pprInfoTable :: Platform -> CmmInfoTable -> SDoc -pprInfoTable _ CmmNonInfoTable +pprInfoTable :: CmmInfoTable -> SDoc +pprInfoTable CmmNonInfoTable = empty -pprInfoTable _ - (CmmInfoTable { cit_lbl = lbl, cit_rep = rep +pprInfoTable (CmmInfoTable { cit_lbl = lbl, cit_rep = rep , cit_prof = prof_info , cit_srt = _srt }) = vcat [ ptext (sLit "label:") <+> ppr lbl |