diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-29 14:10:35 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-29 14:10:35 +0000 |
| commit | ae1d2994ce539ba0b8d04c0b23e54cfc54307de3 (patch) | |
| tree | c0d33a387f80c7f2e79072dce8973e821ed90c7f /compiler/cmm | |
| parent | da300d714ef9d807933e06c202a5898864734b5a (diff) | |
| download | haskell-ae1d2994ce539ba0b8d04c0b23e54cfc54307de3.tar.gz | |
Fix warnings in CmmLive
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmLive.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/cmm/CmmLive.hs b/compiler/cmm/CmmLive.hs index e53a6063f1..ed659776a8 100644 --- a/compiler/cmm/CmmLive.hs +++ b/compiler/cmm/CmmLive.hs @@ -1,10 +1,3 @@ -{-# 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 CmmLive ( CmmLive, BlockEntryLiveness, @@ -20,7 +13,6 @@ import Dataflow import Maybes import Panic -import UniqFM import UniqSet ----------------------------------------------------------------------------- @@ -213,6 +205,7 @@ cmmExprLive expr = addLive (mkUniqSet $ expr_liveness expr) where expr_liveness (CmmReg reg) = reg_liveness reg expr_liveness (CmmMachOp _ exprs) = concatMap expr_liveness exprs expr_liveness (CmmRegOff reg _) = reg_liveness reg + expr_liveness (CmmStackSlot _ _) = panic "cmmExprLive CmmStackSlot" reg_liveness :: CmmReg -> [LocalReg] reg_liveness (CmmLocal reg) = [reg] |