diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-29 14:42:14 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-29 14:42:14 +0000 |
| commit | 41bfa1a7b3214af470583ef16fae2392eefdaa6a (patch) | |
| tree | f42f5741479e150d19ef9462e11427df6feb7ede /compiler/cmm | |
| parent | a52543e55f4bcca008255c3d3947eb82895093b9 (diff) | |
| download | haskell-41bfa1a7b3214af470583ef16fae2392eefdaa6a.tar.gz | |
Fix warnings in CmmProcPoint
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmProcPoint.hs | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/compiler/cmm/CmmProcPoint.hs b/compiler/cmm/CmmProcPoint.hs index a90af7137d..de8cfa378b 100644 --- a/compiler/cmm/CmmProcPoint.hs +++ b/compiler/cmm/CmmProcPoint.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 CmmProcPoint ( calculateProcPoints ) where @@ -12,12 +5,10 @@ module CmmProcPoint ( #include "HsVersions.h" import BlockId -import Cmm import CmmBrokenBlock import Dataflow import UniqSet -import UniqFM import Panic -- Determine the proc points for a set of basic blocks. @@ -115,7 +106,7 @@ calculateOwnership blocks_ufm proc_points blocks = (Nothing, True) -> Just $ extendBlockEnv owners ident (unitUniqSet ident) (Nothing, False) -> Nothing - (Just cause', True) -> Nothing + (Just _, True) -> Nothing (Just cause', False) -> if (sizeUniqSet old) == (sizeUniqSet new) then Nothing |