X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprofiling%2FSCCfinal.lhs;h=9e8b1b446639d166f03e6539189a23eaedb5b9bb;hp=b24840d6fb7c572e93a084d526d57851b8e59363;hb=dbc1ed7e054a1c67cd34ff4776feea0d176e3bbb;hpb=53f3c267e9378f48d3a6df45a9ecb616fac991f6 diff --git a/compiler/profiling/SCCfinal.lhs b/compiler/profiling/SCCfinal.lhs index b24840d..9e8b1b4 100644 --- a/compiler/profiling/SCCfinal.lhs +++ b/compiler/profiling/SCCfinal.lhs @@ -5,22 +5,21 @@ This is now a sort-of-normal STG-to-STG pass (WDP 94/06), run by stg2stg. -* Traverses the STG program collecting the cost centres. These are - required to declare the cost centres at the start of code - generation. + - Traverses the STG program collecting the cost centres. These are required + to declare the cost centres at the start of code generation. - Note: because of cross-module unfolding, some of these cost centres - may be from other modules. But will still have to give them - "extern" declarations. + Note: because of cross-module unfolding, some of these cost centres may be + from other modules. But will still have to give them "extern" + declarations. -* Puts on CAF cost-centres if the user has asked for individual CAF - cost-centres. + - Puts on CAF cost-centres if the user has asked for individual CAF + cost-centres. -* Ditto for individual DICT cost-centres. + - Ditto for individual DICT cost-centres. -* Boxes top-level inherited functions passed as arguments. + - Boxes top-level inherited functions passed as arguments. -* "Distributes" given cost-centres to all as-yet-unmarked RHSs. + - "Distributes" given cost-centres to all as-yet-unmarked RHSs. \begin{code} module SCCfinal ( stgMassageForProfiling ) where