Commit 8b31090c authored by Simon Marlow's avatar Simon Marlow

fix warnings

parent a0020c1e
......@@ -308,7 +308,7 @@ bundle flatmap (env, decl@(CmmProc infos lbl g)) (closure_cafs, mb_lbl)
then pprPanic "bundle" (ppr l <+> ppr lbl <+> ppr (info_tbls infos))
else flatten flatmap $ expectJust "bundle" $ mapLookup l env
bundle flatmap (_, decl) _
bundle _flatmap (_, decl) _
= ( mapEmpty, decl )
......
......@@ -10,7 +10,6 @@ module CmmPipeline (
) where
import Cmm
import CmmUtils
import CmmLint
import CmmBuildInfoTables
import CmmCommonBlockElim
......
......@@ -136,11 +136,13 @@ cmmSink graph = ofBlockList (g_entry graph) $ sink mapEmpty $ blocks
mapFromList [ (l, filterAssignments (getLive l) assigs')
| l <- succs ]
{-
-- tiny: an expression we don't mind duplicating
isTiny :: CmmExpr -> Bool
isTiny (CmmReg _) = True
isTiny (CmmLit _) = True
isTiny _other = False
-}
-- annotate each node with the set of registers live *after* the node
annotate :: RegSet -> [CmmNode O O] -> [(RegSet, CmmNode O O)]
......
......@@ -64,7 +64,7 @@ pprNatCmmDecl proc@(CmmProc top_info lbl (ListGraph blocks)) =
vcat (map (pprBasicBlock top_info) blocks) $$
pprSizeDecl lbl
Just (Statics info_lbl info) ->
Just (Statics info_lbl _) ->
sdocWithPlatform $ \platform ->
(if platformHasSubsectionsViaSymbols platform
then ppr (mkDeadStripPreventer info_lbl) <> char ':'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment