From ae1d2994ce539ba0b8d04c0b23e54cfc54307de3 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 29 Dec 2008 14:10:35 +0000 Subject: [PATCH] Fix warnings in CmmLive --- compiler/cmm/CmmLive.hs | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/compiler/cmm/CmmLive.hs b/compiler/cmm/CmmLive.hs index e53a606..ed65977 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] -- 1.7.10.4