projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
81f944d
)
enable and slay warnings in cmm/Cmm.hs
author
Norman Ramsey
<nr@eecs.harvard.edu>
Wed, 5 Sep 2007 16:46:46 +0000
(16:46 +0000)
committer
Norman Ramsey
<nr@eecs.harvard.edu>
Wed, 5 Sep 2007 16:46:46 +0000
(16:46 +0000)
compiler/cmm/Cmm.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/Cmm.hs
b/compiler/cmm/Cmm.hs
index
8bf6818
..
fd36c3a
100644
(file)
--- 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,
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
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)
-----------------------------------------------------------------------------
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
localRegRep :: LocalReg -> MachRep
localRegRep (LocalReg _ rep _) = rep
+localRegGCFollow :: LocalReg -> Kind
localRegGCFollow (LocalReg _ _ p) = p
cmmLitRep :: CmmLit -> MachRep
localRegGCFollow (LocalReg _ _ p) = p
cmmLitRep :: CmmLit -> MachRep