diff options
Diffstat (limited to 'hadrian/src/Flavour.hs')
| -rw-r--r-- | hadrian/src/Flavour.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/hadrian/src/Flavour.hs b/hadrian/src/Flavour.hs index dba8621952..dd203ea88e 100644 --- a/hadrian/src/Flavour.hs +++ b/hadrian/src/Flavour.hs @@ -4,7 +4,7 @@ module Flavour -- * Flavour transformers , addArgs , splitSections, splitSectionsIf - , enableDebugInfo + , enableDebugInfo, enableTickyGhc ) where import Expression @@ -80,6 +80,17 @@ enableDebugInfo = addArgs $ mconcat , builder (Cc CompileC) ? notStage0 ? arg "-g3" ] +-- | Enable the ticky-ticky profiler in stage2 GHC +enableTickyGhc :: Flavour -> Flavour +enableTickyGhc = + addArgs $ foldMap enableTickyFor [ghc, compiler, base] + where + enableTickyFor pkg = stage1 ? package pkg ? mconcat + [ builder (Ghc CompileHs) ? ticky + , builder (Ghc LinkHs) ? ticky + ] + ticky = arg "-ticky" <> arg "-ticky-allocd" + -- | Transform the input 'Flavour' so as to build with -- @-split-sections@ whenever appropriate. You can -- select which package gets built with split sections |