diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-05 16:46:46 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-05 16:46:46 +0000 |
| commit | 807b00a759afd11530949f91bd523bb45f01bd40 (patch) | |
| tree | 45117dd6d904660c4fcb8ecbebf860366f4df0a5 | |
| parent | 81f944da0ed9da6116800aeb575d6ea2a1937ac4 (diff) | |
| download | haskell-807b00a759afd11530949f91bd523bb45f01bd40.tar.gz | |
enable and slay warnings in cmm/Cmm.hs
| -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 |