X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegCoalesce.hs;h=2bcc6eca5645020a3b95f0c6ebd8837665626307;hb=272f0ba89eca1d9fc700cf4c27b9f8c3e23d6fe8;hp=ec18e461702b262e2707a29e1f2ca9c9e543d329;hpb=ad94d40948668032189ad22a0ad741ac1f645f50;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegCoalesce.hs b/compiler/nativeGen/RegCoalesce.hs
index ec18e46..2bcc6ec 100644
--- a/compiler/nativeGen/RegCoalesce.hs
+++ b/compiler/nativeGen/RegCoalesce.hs
@@ -1,14 +1,6 @@
-
 -- | Register coalescing.
 --
 
-{-# 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/CodingStyle#Warnings
--- for details
-
 module RegCoalesce (
 	regCoalesce,
 	slurpJoinMovs
@@ -71,8 +63,8 @@ slurpJoinMovs live
  where	
   	slurpCmm   rs  CmmData{}		= rs
 	slurpCmm   rs (CmmProc _ _ _ blocks)	= foldl' slurpComp  rs blocks
-   	slurpComp  rs (BasicBlock i blocks)	= foldl' slurpBlock rs blocks
-	slurpBlock rs (BasicBlock i instrs)	= foldl' slurpLI    rs instrs
+   	slurpComp  rs (BasicBlock _ blocks)	= foldl' slurpBlock rs blocks
+	slurpBlock rs (BasicBlock _ instrs)	= foldl' slurpLI    rs instrs
 		
 	slurpLI    rs (Instr _	Nothing)	= rs
 	slurpLI    rs (Instr instr (Just live))