Skip to content
Snippets Groups Projects
Commit 361f2029 authored by Alexis King's avatar Alexis King
Browse files

wip: hadrian prof stuff

parent 5e9b19e1
No related branches found
No related tags found
No related merge requests found
......@@ -199,7 +199,7 @@ viaLlvmBackend = addArgs $ notStage0 ? builder Ghc ? arg "-fllvm"
-- dynamically-linker.
enableProfiledGhc :: Flavour -> Flavour
enableProfiledGhc flavour =
enableLateCCS flavour { rtsWays = do
flavour { rtsWays = do
ws <- rtsWays flavour
pure $ (Set.map (\w -> if wayUnit Dynamic w then w else w <> profiling) ws) <> ws
, libraryWays = (Set.singleton profiling <>) <$> (libraryWays flavour)
......@@ -521,4 +521,3 @@ builderSetting =
stages = map (\stg -> (stageString stg, stg)) allStages
pkgs = map (\pkg -> (pkgName pkg, pkg)) (ghcPackages ++ userPackages)
......@@ -54,7 +54,7 @@ packageArgs = do
, builder (Ghc CompileHs) ? mconcat
[ debugAssertions ? notStage0 ? arg "-DDEBUG"
, inputs ["**/GHC.hs", "**/GHC/Driver/Make.hs"] ? arg "-fprof-auto"
-- , inputs ["**/GHC.hs", "**/GHC/Driver/Make.hs"] ? arg "-fprof-auto"
, input "**/Parser.hs" ?
pure ["-fno-ignore-interface-pragmas", "-fcmm-sink"]
-- Enable -haddock and -Winvalid-haddock for the compiler
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment