diff options
| -rw-r--r-- | compiler/cmm/Cmm.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 8bf681813d..fd36c3af34 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -6,13 +6,6 @@ -- ----------------------------------------------------------------------------- -{-# OPTIONS -w #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details - module Cmm ( GenCmm(..), Cmm, RawCmm, GenCmmTop(..), CmmTop, RawCmmTop, @@ -115,6 +108,7 @@ blockId (BasicBlock blk_id _ ) = blk_id blockStmts :: GenBasicBlock i -> [i] blockStmts (BasicBlock _ stmts) = stmts +mapBlockStmts :: (i -> i') -> GenBasicBlock i -> GenBasicBlock i' mapBlockStmts f (BasicBlock id bs) = BasicBlock id (map f bs) ----------------------------------------------------------------------------- @@ -344,6 +338,7 @@ cmmRegRep (CmmGlobal reg) = globalRegRep reg localRegRep :: LocalReg -> MachRep localRegRep (LocalReg _ rep _) = rep +localRegGCFollow :: LocalReg -> Kind localRegGCFollow (LocalReg _ _ p) = p cmmLitRep :: CmmLit -> MachRep |