Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
1e50fd41
Commit
1e50fd41
authored
Jul 24, 2009
by
Ian Lynagh
Browse files
Remove GHC's haskell98 dependency
parent
52cacd61
Changes
60
Hide whitespace changes
Inline
Side-by-side
compiler/basicTypes/Literal.lhs
View file @
1e50fd41
...
...
@@ -49,9 +49,9 @@ import FastTypes
import FastString
import BasicTypes
import Binary
import Ratio
import Data.Int
import Data.Ratio
import Data.Word
import Data.Char
\end{code}
...
...
compiler/cmm/CmmBrokenBlock.hs
View file @
1e50fd41
...
...
@@ -23,7 +23,7 @@ import CgUtils (callerSaveVolatileRegs)
import
ClosureInfo
import
Maybes
import
List
import
Data.
List
import
Panic
import
Unique
...
...
compiler/cmm/CmmBuildInfoTables.hs
View file @
1e50fd41
...
...
@@ -27,11 +27,11 @@ import FastString
import
FiniteMap
import
ForeignCall
import
IdInfo
import
List
(
sortBy
)
import
Data.List
import
Maybes
import
MkZipCfg
import
MkZipCfgCmm
hiding
(
CmmAGraph
,
CmmBlock
,
CmmTopZ
,
CmmZ
,
CmmGraph
)
import
Monad
import
Control.
Monad
import
Name
import
Outputable
import
SMRep
...
...
compiler/cmm/CmmCPS.hs
View file @
1e50fd41
...
...
@@ -31,7 +31,7 @@ import UniqSupply
import
UniqSet
import
Unique
import
Monad
import
Control.
Monad
-----------------------------------------------------------------------------
-- |Top level driver for the CPS pass
...
...
compiler/cmm/CmmCPSGen.hs
View file @
1e50fd41
...
...
@@ -23,7 +23,7 @@ import ForeignCall
import
Constants
import
StaticFlags
import
Unique
import
Maybe
import
Data.
Maybe
import
FastString
import
Panic
...
...
compiler/cmm/CmmCPSZ.hs
View file @
1e50fd41
...
...
@@ -20,8 +20,8 @@ import DynFlags
import
ErrUtils
import
FiniteMap
import
HscTypes
import
Maybe
import
Monad
import
Data.
Maybe
import
Control.
Monad
import
Outputable
import
StaticFlags
...
...
compiler/cmm/CmmCommonBlockElimZ.hs
View file @
1e50fd41
...
...
@@ -11,10 +11,10 @@ import ZipCfg
import
ZipCfgCmmRep
import
Data.Bits
import
qualified
Data.List
as
List
import
Data.Word
import
FastString
import
List
hiding
(
iterate
)
import
Monad
import
Control.Monad
import
Outputable
import
UniqFM
import
Unique
...
...
@@ -56,7 +56,7 @@ type State = (UniqFM [CmmBlock], BidMap)
common_block
::
(
Outputable
h
,
Uniquable
h
)
=>
State
->
(
h
,
CmmBlock
)
->
(
Bool
,
State
)
common_block
(
bmap
,
subst
)
(
hash
,
b
)
=
case
lookupUFM
bmap
hash
of
Just
bs
->
case
(
find
(
eqBlockBodyWith
(
eqBid
subst
)
b
)
bs
,
Just
bs
->
case
(
List
.
find
(
eqBlockBodyWith
(
eqBid
subst
)
b
)
bs
,
lookupBlockEnv
subst
bid
)
of
(
Just
b'
,
Nothing
)
->
addSubst
b'
(
Just
b'
,
Just
b''
)
|
blockId
b'
/=
b''
->
addSubst
b'
...
...
compiler/cmm/CmmContFlowOpt.hs
View file @
1e50fd41
...
...
@@ -14,7 +14,7 @@ import ZipCfg
import
ZipCfgCmmRep
import
Maybes
import
Monad
import
Control.
Monad
import
Outputable
import
Prelude
hiding
(
unzip
,
zip
)
import
Util
...
...
compiler/cmm/CmmCvt.hs
View file @
1e50fd41
...
...
@@ -13,7 +13,7 @@ import PprCmm()
import
qualified
ZipCfg
as
G
import
FastString
import
Monad
import
Control.
Monad
import
Outputable
import
UniqSupply
...
...
compiler/cmm/CmmLint.hs
View file @
1e50fd41
...
...
@@ -19,13 +19,13 @@ module CmmLint (
import
BlockId
import
Cmm
import
CLabel
import
Maybe
import
Outputable
import
PprCmm
import
Constants
import
FastString
import
Control.Monad
import
Data.Maybe
-- -----------------------------------------------------------------------------
-- Exported entry points:
...
...
compiler/cmm/CmmLiveZ.hs
View file @
1e50fd41
...
...
@@ -11,7 +11,7 @@ import BlockId
import
CmmExpr
import
CmmTx
import
DFMonad
import
Monad
import
Control.
Monad
import
PprCmm
()
import
PprCmmZ
()
import
ZipCfg
...
...
compiler/cmm/CmmProcPointZ.hs
View file @
1e50fd41
...
...
@@ -16,11 +16,11 @@ import CmmLiveZ
import
CmmTx
import
DFMonad
import
FiniteMap
import
List
(
sortBy
)
import
Data.
List
(
sortBy
)
import
Maybes
import
MkZipCfg
import
MkZipCfgCmm
hiding
(
CmmBlock
,
CmmGraph
,
CmmTopZ
)
import
Monad
import
Control.
Monad
import
Outputable
import
UniqSet
import
UniqSupply
...
...
compiler/cmm/CmmSpillReload.hs
View file @
1e50fd41
...
...
@@ -23,12 +23,12 @@ import ZipCfg
import
ZipCfgCmmRep
import
ZipDataflow
import
Monad
import
Control.
Monad
import
Outputable
hiding
(
empty
)
import
qualified
Outputable
as
PP
import
UniqSet
import
Maybe
import
Data.
Maybe
import
Prelude
hiding
(
zip
)
-- The point of this module is to insert spills and reloads to
...
...
compiler/cmm/CmmStackLayout.hs
View file @
1e50fd41
...
...
@@ -16,7 +16,7 @@ import FiniteMap
import
Maybes
import
MkZipCfg
import
MkZipCfgCmm
hiding
(
CmmBlock
,
CmmGraph
)
import
Monad
import
Control.
Monad
import
Outputable
import
SMRep
(
ByteOff
)
import
ZipCfg
...
...
compiler/cmm/OptimizationFuel.hs
View file @
1e50fd41
...
...
@@ -17,7 +17,7 @@ import ZipCfg
--import GHC.Exts (State#)
import
Panic
import
Data.IORef
import
Monad
import
Control.
Monad
import
StaticFlags
(
opt_Fuel
)
import
UniqSupply
...
...
compiler/cmm/PprCmmZ.hs
View file @
1e50fd41
...
...
@@ -12,7 +12,7 @@ import qualified ZipCfgCmmRep as G
import
qualified
ZipCfg
as
Z
import
CmmZipUtil
import
Maybe
import
Data.
Maybe
import
FastString
----------------------------------------------------------------
...
...
compiler/cmm/ZipCfg.hs
View file @
1e50fd41
...
...
@@ -45,7 +45,7 @@ import PprCmm()
import
Outputable
hiding
(
empty
)
import
Maybe
import
Data.
Maybe
import
Prelude
hiding
(
zip
,
unzip
,
last
)
-------------------------------------------------------------------------
...
...
compiler/cmm/ZipCfgCmmRep.hs
View file @
1e50fd41
...
...
@@ -36,7 +36,7 @@ import Util
import
BasicTypes
import
Maybes
import
Monad
import
Control.
Monad
import
Outputable
import
Prelude
hiding
(
zip
,
unzip
,
last
)
import
SMRep
(
ByteOff
)
...
...
compiler/codeGen/CgHpc.hs
View file @
1e50fd41
...
...
@@ -20,9 +20,9 @@ import ClosureInfo
import
FastString
import
HscTypes
import
Panic
import
Char
import
BasicTypes
import
Data.Char
import
Data.Word
cgTickBox
::
Module
->
Int
->
Code
...
...
compiler/codeGen/StgCmmBind.hs
View file @
1e50fd41
...
...
@@ -36,7 +36,7 @@ import CLabel
import
StgSyn
import
CostCentre
import
Id
import
Monad
(
foldM
,
liftM
)
import
Control.Monad
import
Name
import
Module
import
ListSetOps
...
...
Prev
1
2
3
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment