From 52f50252d4d804349dfca30c2152225c60e5d5c1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 29 Dec 2008 14:53:07 +0000 Subject: [PATCH] Fix warnings in CmmInfo --- compiler/cmm/CmmInfo.hs | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/compiler/cmm/CmmInfo.hs b/compiler/cmm/CmmInfo.hs index 438f122..de6e201 100644 --- a/compiler/cmm/CmmInfo.hs +++ b/compiler/cmm/CmmInfo.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 CmmInfo ( emptyContInfoTable, cmmToRawCmm, @@ -28,7 +21,6 @@ import SMRep import ZipCfgCmmRep import Constants -import Outputable import StaticFlags import Unique import UniqSupply @@ -85,7 +77,7 @@ cmmToRawCmm cmm = do -- * The SRT slot is only there if there is SRT info to record mkInfoTable :: Unique -> CmmTop -> [RawCmmTop] -mkInfoTable uniq (CmmData sec dat) = [CmmData sec dat] +mkInfoTable _ (CmmData sec dat) = [CmmData sec dat] mkInfoTable uniq (CmmProc (CmmInfo _ _ info) entry_label arguments blocks) = case info of -- Code without an info table. Easy. @@ -133,7 +125,7 @@ mkInfoTable uniq (CmmProc (CmmInfo _ _ info) entry_label arguments blocks) = layout = packHalfWordsCLit ptrs nptrs -- A selector thunk. - ThunkSelectorInfo offset srt -> + ThunkSelectorInfo offset _srt -> mkInfoTableAndCode info_label std_info [{- no SRT -}] entry_label arguments blocks where @@ -193,7 +185,7 @@ mkSRTLit :: CLabel -> C_SRT -> ([CmmLit], -- srt_label StgHalfWord) -- srt_bitmap -mkSRTLit info_label NoC_SRT = ([], 0) +mkSRTLit _ NoC_SRT = ([], 0) mkSRTLit info_label (C_SRT lbl off bitmap) = ([makeRelativeRefTo info_label (cmmLabelOffW lbl off)], bitmap) -- 1.7.10.4