Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/16a7d5b9c979e21afbcd04401315279d10d90e26 >--------------------------------------------------------------- commit 16a7d5b9c979e21afbcd04401315279d10d90e26 Author: Simon Marlow <[email protected]> Date: Thu Nov 17 11:58:39 2011 +0000 Add some missing top-level SCCs >--------------------------------------------------------------- compiler/main/HscMain.hs | 14 ++++++++++---- 1 files changed, 10 insertions(+), 4 deletions(-) diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 87c723f..0647942 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
