Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
dae976c8
Commit
dae976c8
authored
Aug 01, 2012
by
Simon Marlow
Browse files
add a sinking pass before stack layout (currently disabled)
parent
7930221e
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmPipeline.hs
View file @
dae976c8
...
...
@@ -83,7 +83,14 @@ cpsTop hsc_env (CmmProc h@(TopInfo {stack_info=StackInfo {arg_space=entry_off}})
when
(
not
(
setNull
noncall_pps
))
$
pprTrace
"Non-call proc points: "
(
ppr
noncall_pps
)
$
return
()
----------- Layout the stack and manifest Sp ---------------
----------- Sink and inline assignments *before* stack layout -----------
g
<-
if
False
-- maybe enable this later
then
do
g
<-
{-# SCC "sink" #-}
return
(
cmmSink
g
)
dump
Opt_D_dump_cmmz_rewrite
"Sink assignments"
g
return
g
else
return
g
----------- Layout the stack and manifest Sp ----------------------------
-- (also does: removeDeadAssignments, and lowerSafeForeignCalls)
(
g
,
stackmaps
)
<-
{-# SCC "layoutStack" #-}
runUniqSM
$
cmmLayoutStack
dflags
proc_points
entry_off
g
...
...
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