Commit bff2f24b authored by John Ericson's avatar John Ericson Committed by Marge Bot
Browse files

Move 'Platform' to ghc-boot

ghc-pkg needs to be aware of platforms so it can figure out which
subdire within the user package db to use. This is admittedly
roundabout, but maybe Cabal could use the same notion of a platform as
GHC to good affect too.
parent 3ae23992
......@@ -61,7 +61,7 @@ import BasicTypes
import Binary
import Constants
import DynFlags
import Platform
import GHC.Platform
import UniqFM
import Util
......
......@@ -124,7 +124,7 @@ import CostCentre
import Outputable
import FastString
import DynFlags
import Platform
import GHC.Platform
import UniqSet
import Util
import PprCore ( {- instances -} )
......
......@@ -16,7 +16,7 @@ import Hoopl.Label
import Hoopl.Collections
import Hoopl.Dataflow
import Module
import Platform
import GHC.Platform
import Digraph
import CLabel
import PprCmmDecl ()
......
......@@ -13,7 +13,7 @@ import Cmm (Convention(..))
import PprCmm ()
import DynFlags
import Platform
import GHC.Platform
import Outputable
-- Calculate the 'GlobalReg' or stack locations for function call
......
......@@ -45,7 +45,7 @@ import Stream (Stream)
import qualified Stream
import Hoopl.Collections
import Platform
import GHC.Platform
import Maybes
import DynFlags
import Panic
......
......@@ -25,7 +25,7 @@ import DynFlags
import Util
import Outputable
import Platform
import GHC.Platform
import Data.Bits
import Data.Maybe
......
......@@ -237,7 +237,7 @@ import CmmMonad
import CostCentre
import ForeignCall
import Module
import Platform
import GHC.Platform
import Literal
import Unique
import UniqFM
......
......@@ -26,7 +26,7 @@ import ErrUtils
import HscTypes
import Control.Monad
import Outputable
import Platform
import GHC.Platform
-----------------------------------------------------------------------------
-- | Top level driver for C-- pipeline
......
......@@ -23,7 +23,7 @@ import Data.List (sortBy)
import Maybes
import Control.Monad
import Outputable
import Platform
import GHC.Platform
import UniqSupply
import Hoopl.Block
import Hoopl.Collections
......
......@@ -14,7 +14,7 @@ import Hoopl.Label
import Hoopl.Collections
import Hoopl.Graph
import CodeGen.Platform
import Platform (isARM, platformArch)
import GHC.Platform (isARM, platformArch)
import DynFlags
import Unique
......
......@@ -44,7 +44,7 @@ import CPrim
import DynFlags
import FastString
import Outputable
import Platform
import GHC.Platform
import UniqSet
import UniqFM
import Unique
......
......@@ -49,7 +49,7 @@ import GhcPrelude
import BasicTypes( ConTagZ )
import DynFlags
import Outputable
import Platform
import GHC.Platform
import FastString
import Data.Word
......
......@@ -6,7 +6,7 @@ module CodeGen.Platform
import GhcPrelude
import CmmExpr
import Platform
import GHC.Platform
import Reg
import qualified CodeGen.Platform.ARM as ARM
......
......@@ -44,7 +44,7 @@ import RepType (countConRepArgs)
import Literal
import PrelInfo
import Outputable
import Platform
import GHC.Platform
import Util
import MonadUtils (mapMaybeM)
......
......@@ -31,7 +31,7 @@ import StgCmmHeap
import StgCmmProf ( costCentreFrom )
import DynFlags
import Platform
import GHC.Platform
import BasicTypes
import BlockId
import MkGraph
......
......@@ -53,7 +53,7 @@ import DynFlags
import Util
import Pair
import Outputable
import Platform
import GHC.Platform
import FastString
import Name ( NamedThing(..), nameSrcSpan )
import SrcLoc ( SrcSpan(..), realSrcLocSpan, mkRealSrcLoc )
......
......@@ -88,7 +88,7 @@ import FastString
import Maybes
import ListSetOps ( minusList )
import BasicTypes ( Arity, isConLike )
import Platform
import GHC.Platform
import Util
import Pair
import Data.ByteString ( ByteString )
......
......@@ -49,7 +49,7 @@ import SrcLoc
import Outputable
import FastString
import DynFlags
import Platform
import GHC.Platform
import OrdList
import Pair
import Util
......
......@@ -607,7 +607,6 @@ Library
Reg
RegClass
PIC
Platform
CPrim
X86.Regs
X86.RegInfo
......
......@@ -33,7 +33,7 @@ import StgCmmLayout ( ArgRep(..) )
import SMRep
import DynFlags
import Outputable
import Platform
import GHC.Platform
import Util
import Unique
import UniqDSet
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment