diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-25 19:20:25 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-02 20:08:36 -0400 |
| commit | f08d6316d3d19b627550d99b4364e9bf0b45c329 (patch) | |
| tree | 65e52dcc0b0fc940da95885e7e3e4ca5e585ce49 /compiler/GHC/Driver/CodeOutput.hs | |
| parent | 4d90b3ff02002ea25460d087dde56f69a9641096 (diff) | |
| download | haskell-f08d6316d3d19b627550d99b4364e9bf0b45c329.tar.gz | |
Replace Opt_SccProfilingOn flag with sccProfilingEnabled helper function
SCC profiling was enabled in a convoluted way: if WayProf was enabled,
Opt_SccProfilingOn general flag was set (in
`GHC.Driver.Ways.wayGeneralFlags`), and then this flag was queried in
various places.
There is no need to go via general flags, so this patch defines a
`sccProfilingEnabled :: DynFlags -> Bool` helper function that just
checks whether WayProf is enabled.
Diffstat (limited to 'compiler/GHC/Driver/CodeOutput.hs')
| -rw-r--r-- | compiler/GHC/Driver/CodeOutput.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/GHC/Driver/CodeOutput.hs b/compiler/GHC/Driver/CodeOutput.hs index 8d4726baf6..b8b48425e9 100644 --- a/compiler/GHC/Driver/CodeOutput.hs +++ b/compiler/GHC/Driver/CodeOutput.hs @@ -275,11 +275,9 @@ outputForeignStubs_help fname doc_str header footer -- module; -- | Generate code to initialise cost centres -profilingInitCode :: DynFlags -> Module -> CollectedCCs -> SDoc -profilingInitCode dflags this_mod (local_CCs, singleton_CCSs) - = if not (gopt Opt_SccProfilingOn dflags) - then empty - else vcat +profilingInitCode :: Module -> CollectedCCs -> SDoc +profilingInitCode this_mod (local_CCs, singleton_CCSs) + = vcat $ map emit_cc_decl local_CCs ++ map emit_ccs_decl singleton_CCSs ++ [emit_cc_list local_CCs] |