Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
8d3e9fd0
Commit
8d3e9fd0
authored
Aug 06, 2012
by
Simon Marlow
Browse files
small cleanup
parent
46b5c197
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmLayoutStack.hs
View file @
8d3e9fd0
...
...
@@ -26,8 +26,6 @@ import Util
import
DynFlags
import
FastString
import
Outputable
import
Data.Map
(
Map
)
import
qualified
Data.Map
as
Map
import
qualified
Data.Set
as
Set
import
Control.Monad.Fix
import
Data.Array
as
Array
...
...
@@ -485,12 +483,11 @@ spOffsetForCall current_sp cont_stack args
fixupStack
::
StackMap
->
StackMap
->
[
CmmNode
O
O
]
fixupStack
old_stack
new_stack
=
concatMap
move
new_locs
where
old_map
::
Map
LocalReg
ByteOff
old_map
=
Map
.
fromList
(
stackSlotRegs
old_stack
)
old_map
=
sm_regs
old_stack
new_locs
=
stackSlotRegs
new_stack
move
(
r
,
n
)
|
Just
m
<-
Map
.
lookup
r
old_map
,
n
==
m
=
[]
|
Just
(
_
,
m
)
<-
lookup
UFM
old_map
r
,
n
==
m
=
[]
|
otherwise
=
[
CmmStore
(
CmmStackSlot
Old
n
)
(
CmmReg
(
CmmLocal
r
))]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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