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
b522d3a3
Commit
b522d3a3
authored
Jun 13, 2012
by
Ian Lynagh
Browse files
Stop exporting, and stop using, some deprecated functions
parent
d6cef3c9
Changes
3
Hide whitespace changes
Inline
Side-by-side
compiler/basicTypes/UniqSupply.lhs
View file @
b522d3a3
...
...
@@ -23,7 +23,7 @@ module UniqSupply (
lazyThenUs, lazyMapUs,
-- ** Deprecated operations on 'UniqSM'
getUniqueUs, getUs,
returnUs, thenUs, mapUs
getUniqueUs, getUs,
) where
import Unique
...
...
@@ -188,13 +188,6 @@ getUniqueUs = USM (\us -> case splitUniqSupply us of
getUniquesUs :: UniqSM [Unique]
getUniquesUs = USM (\us -> case splitUniqSupply us of
(us1,us2) -> (uniqsFromSupply us1, us2))
mapUs :: (a -> UniqSM b) -> [a] -> UniqSM [b]
mapUs _ [] = returnUs []
mapUs f (x:xs)
= f x `thenUs` \ r ->
mapUs f xs `thenUs` \ rs ->
returnUs (r:rs)
\end{code}
\begin{code}
...
...
compiler/nativeGen/AsmCodeGen.lhs
View file @
b522d3a3
...
...
@@ -375,7 +375,7 @@ cmmNativeGen dflags ncgImpl us cmm count
let (withLiveness, usLive) =
{-# SCC "regLiveness" #-}
initUs usGen
$ map
Us
regLiveness
$ map
M
regLiveness
$ map natCmmTopToLive native
dumpIfSet_dyn dflags
...
...
@@ -434,7 +434,7 @@ cmmNativeGen dflags ncgImpl us cmm count
= {-# SCC "RegAlloc" #-}
initUs usLive
$ liftM unzip
$ map
Us
(Linear.regAlloc dflags) withLiveness
$ map
M
(Linear.regAlloc dflags) withLiveness
dumpIfSet_dyn dflags
Opt_D_dump_asm_regalloc "Registers allocated"
...
...
compiler/nativeGen/RegAlloc/Liveness.hs
View file @
b522d3a3
...
...
@@ -667,11 +667,11 @@ regLiveness
->
UniqSM
(
LiveCmmDecl
statics
instr
)
regLiveness
(
CmmData
i
d
)
=
return
Us
$
CmmData
i
d
=
return
$
CmmData
i
d
regLiveness
(
CmmProc
info
lbl
[]
)
|
LiveInfo
static
mFirst
_
_
<-
info
=
return
Us
$
CmmProc
=
return
$
CmmProc
(
LiveInfo
static
mFirst
(
Just
mapEmpty
)
Map
.
empty
)
lbl
[]
...
...
@@ -679,7 +679,7 @@ regLiveness (CmmProc info lbl sccs)
|
LiveInfo
static
mFirst
_
liveSlotsOnEntry
<-
info
=
let
(
ann_sccs
,
block_live
)
=
computeLiveness
sccs
in
return
Us
$
CmmProc
(
LiveInfo
static
mFirst
(
Just
block_live
)
liveSlotsOnEntry
)
in
return
$
CmmProc
(
LiveInfo
static
mFirst
(
Just
block_live
)
liveSlotsOnEntry
)
lbl
ann_sccs
...
...
Thomas Miedema
@thomie
mentioned in commit
51aa2fa3
·
Sep 27, 2014
mentioned in commit
51aa2fa3
mentioned in commit 51aa2fa3e65a960c1432dba9acc29db719964618
Toggle commit list
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