We now set the flags once and for all in compiler/Makefile.
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
module CmmCPSZ (
-- | Converts C-- with full proceedures and parameters
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module CmmContFlowOpt
( runCmmOpts, cmmCfgOpts, cmmCfgOptsZ
, branchChainElimZ, removeUnreachableBlocksZ
{-# LANGUAGE PatternGuards #-}
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
module CmmCvt
( cmmToZgraph, cmmOfZgraph )
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
module CmmExpr
( CmmExpr(..), cmmExprRep, maybeInvertCmmExpr
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module CmmLiveZ
( CmmLive
, cmmLivenessZ
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module CmmProcPointZ
( minimalProcPointSet
, addProcPointProtocols
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
module CmmSpillReload
( ExtendWithSpills(..)
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module CmmTx where
data ChangeFlag = NoChange | SomeChange
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
-module CmmZipUtil
+
+module CmmZipUtil
( zipPreds
)
where
import Prelude hiding (last, unzip)
-import ZipCfg
+import ZipCfg
import Maybes
-- | Compute the predecessors of each *reachable* block
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module DFMonad
( OptimizationFuel
, DFTx, runDFTx, lastTxPass, txDecrement, txRemaining, txExhausted
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+{-# LANGUAGE ScopedTypeVariables #-}
module MkZipCfg
( AGraph, (<*>), emptyAGraph, withFreshLabel, withUnique
, mkMiddle, mkMiddles, mkLast, mkZTail, mkBranch, mkLabel, mkIfThenElse, mkWhileDo
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module StackColor where
import StackPlacements
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
module StackPlacements
( SlotSet, allStackSlots -- the infinite set of stack slots
, SlotClass(..), slotClassBits, stackSlot32, stackSlot64, stackSlot128
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+{-# LANGUAGE ScopedTypeVariables #-}
module ZipCfg
( BlockId(..), freshBlockId
, BlockEnv, emptyBlockEnv, lookupBlockEnv, extendBlockEnv, insertBlock, mkBlockEnv
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
-- This module is pure representation and should be imported only by
-- clients that need to manipulate representation and know what
-{-# OPTIONS -Wall -fno-warn-name-shadowing #-}
+
{-# LANGUAGE MultiParamTypeClasses #-}
module ZipDataflow
( Answer(..)