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:
a52543e
)
Fix warnings in CmmProcPoint
author
Ian Lynagh
<igloo@earth.li>
Mon, 29 Dec 2008 14:42:14 +0000
(14:42 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Mon, 29 Dec 2008 14:42:14 +0000
(14:42 +0000)
compiler/cmm/CmmProcPoint.hs
patch
|
blob
|
history
diff --git
a/compiler/cmm/CmmProcPoint.hs
b/compiler/cmm/CmmProcPoint.hs
index
a90af71
..
de8cfa3
100644
(file)
--- 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
module CmmProcPoint (
calculateProcPoints
) where
@@
-12,12
+5,10
@@
module CmmProcPoint (
#include "HsVersions.h"
import BlockId
#include "HsVersions.h"
import BlockId
-import Cmm
import CmmBrokenBlock
import Dataflow
import UniqSet
import CmmBrokenBlock
import Dataflow
import UniqSet
-import UniqFM
import Panic
-- Determine the proc points for a set of basic blocks.
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
(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
(Just cause', False) ->
if (sizeUniqSet old) == (sizeUniqSet new)
then Nothing