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
01903ebf
Commit
01903ebf
authored
Jan 25, 2012
by
Simon Marlow
Browse files
add an SCC
parent
5a1a2633
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/HscMain.hs
View file @
01903ebf
...
...
@@ -1300,7 +1300,8 @@ tryNewCodeGen hsc_env this_mod data_tycons
(
topSRT
,
prog
)
<-
{-# SCC "cmmPipeline" #-}
foldM
(
cmmPipeline
hsc_env
)
(
initTopSRT
,
[]
)
prog
let
prog'
=
map
cmmOfZgraph
(
srtToData
topSRT
:
prog
)
let
prog'
=
{-# SCC "cmmOfZgraph" #-}
map
cmmOfZgraph
(
srtToData
topSRT
:
prog
)
dumpIfSet_dyn
dflags
Opt_D_dump_cmmz
"Output Cmm"
(
pprPlatform
platform
prog'
)
return
prog'
...
...
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