Commit 16a7d5b9 authored by Simon Marlow's avatar Simon Marlow
Browse files

Add some missing top-level SCCs

parent 602ac64b
...@@ -378,7 +378,9 @@ hscDesugar hsc_env mod_summary tc_result = ...@@ -378,7 +378,9 @@ hscDesugar hsc_env mod_summary tc_result =
hscDesugar' :: ModSummary -> TcGblEnv -> Hsc ModGuts hscDesugar' :: ModSummary -> TcGblEnv -> Hsc ModGuts
hscDesugar' mod_summary tc_result = do hscDesugar' mod_summary tc_result = do
hsc_env <- getHscEnv 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 -- always check -Werror after desugaring, this is the last opportunity for
-- warnings to arise before the backend. -- warnings to arise before the backend.
...@@ -1131,6 +1133,7 @@ hscWriteIface :: ModIface -> Bool -> ModSummary -> Hsc () ...@@ -1131,6 +1133,7 @@ hscWriteIface :: ModIface -> Bool -> ModSummary -> Hsc ()
hscWriteIface iface no_change mod_summary = do hscWriteIface iface no_change mod_summary = do
dflags <- getDynFlags dflags <- getDynFlags
unless no_change $ unless no_change $
{-# SCC "writeIface" #-}
liftIO $ writeIfaceFile dflags (ms_location mod_summary) iface liftIO $ writeIfaceFile dflags (ms_location mod_summary) iface
-- | Compile to hard-code. -- | Compile to hard-code.
...@@ -1170,7 +1173,8 @@ hscGenHardCode cgguts mod_summary = do ...@@ -1170,7 +1173,8 @@ hscGenHardCode cgguts mod_summary = do
------------------ Code generation ------------------ ------------------ Code generation ------------------
cmms <- if dopt Opt_TryNewCodeGen dflags 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 cost_centre_info
stg_binds hpc_info stg_binds hpc_info
else {-# SCC "CodeGen" #-} else {-# SCC "CodeGen" #-}
...@@ -1179,10 +1183,12 @@ hscGenHardCode cgguts mod_summary = do ...@@ -1179,10 +1183,12 @@ hscGenHardCode cgguts mod_summary = do
stg_binds hpc_info stg_binds hpc_info
------------------ Code output ----------------------- ------------------ 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) dumpIfSet_dyn dflags Opt_D_dump_raw_cmm "Raw Cmm" (pprPlatform platform rawcmms)
(_stub_h_exists, stub_c_exists) (_stub_h_exists, stub_c_exists)
<- codeOutput dflags this_mod location foreign_stubs <- {-# SCC "codeOutput" #-}
codeOutput dflags this_mod location foreign_stubs
dependencies rawcmms dependencies rawcmms
return stub_c_exists return stub_c_exists
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment