Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
16a7d5b9
Commit
16a7d5b9
authored
Nov 17, 2011
by
Simon Marlow
Browse files
Add some missing top-level SCCs
parent
602ac64b
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/HscMain.hs
View file @
16a7d5b9
...
...
@@ -378,7 +378,9 @@ hscDesugar hsc_env mod_summary tc_result =
hscDesugar'
::
ModSummary
->
TcGblEnv
->
Hsc
ModGuts
hscDesugar'
mod_summary
tc_result
=
do
hsc_env
<-
getHscEnv
r
<-
ioMsgMaybe
$
deSugar
hsc_env
(
ms_location
mod_summary
)
tc_result
r
<-
ioMsgMaybe
$
{-# SCC "deSugar" #-}
deSugar
hsc_env
(
ms_location
mod_summary
)
tc_result
-- always check -Werror after desugaring, this is the last opportunity for
-- warnings to arise before the backend.
...
...
@@ -1131,6 +1133,7 @@ hscWriteIface :: ModIface -> Bool -> ModSummary -> Hsc ()
hscWriteIface
iface
no_change
mod_summary
=
do
dflags
<-
getDynFlags
unless
no_change
$
{-# SCC "writeIface" #-}
liftIO
$
writeIfaceFile
dflags
(
ms_location
mod_summary
)
iface
-- | Compile to hard-code.
...
...
@@ -1170,7 +1173,8 @@ hscGenHardCode cgguts mod_summary = do
------------------ Code generation ------------------
cmms
<-
if
dopt
Opt_TryNewCodeGen
dflags
then
tryNewCodeGen
hsc_env
this_mod
data_tycons
then
{-# SCC "NewCodeGen" #-}
tryNewCodeGen
hsc_env
this_mod
data_tycons
cost_centre_info
stg_binds
hpc_info
else
{-# SCC "CodeGen" #-}
...
...
@@ -1179,10 +1183,12 @@ hscGenHardCode cgguts mod_summary = do
stg_binds
hpc_info
------------------ Code output -----------------------
rawcmms
<-
cmmToRawCmm
platform
cmms
rawcmms
<-
{-# SCC "cmmToRawCmm" #-}
cmmToRawCmm
platform
cmms
dumpIfSet_dyn
dflags
Opt_D_dump_raw_cmm
"Raw Cmm"
(
pprPlatform
platform
rawcmms
)
(
_stub_h_exists
,
stub_c_exists
)
<-
codeOutput
dflags
this_mod
location
foreign_stubs
<-
{-# SCC "codeOutput" #-}
codeOutput
dflags
this_mod
location
foreign_stubs
dependencies
rawcmms
return
stub_c_exists
...
...
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