[Git][ghc/ghc][wip/js-staging] Add perf-js Hadrian flavour

[Sylvain Henry (@hsyl20)]

Sylvain Henry pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC


Commits:
869bebdd by Sylvain Henry at 2022-10-10T16:28:54+02:00
Add perf-js Hadrian flavour

- - - - -


2 changed files:

- hadrian/src/Settings.hs
- hadrian/src/Settings/Flavours/QuickCross.hs


Changes:

=====================================
hadrian/src/Settings.hs
=====================================
@@ -58,6 +58,7 @@ hadrianFlavours =
     , quickestFlavour
     , quickCrossFlavour
     , quickJsFlavour
+    , perfJsFlavour
     , ghcInGhciFlavour, validateFlavour, slowValidateFlavour
     ]
 


=====================================
hadrian/src/Settings/Flavours/QuickCross.hs
=====================================
@@ -1,4 +1,4 @@
-module Settings.Flavours.QuickCross (quickCrossFlavour, quickJsFlavour) where
+module Settings.Flavours.QuickCross (quickCrossFlavour, quickJsFlavour, perfJsFlavour) where
 
 import qualified Data.Set as Set
 
@@ -16,7 +16,15 @@ quickJsFlavour = defaultFlavour
     , rtsWays     = pure $ Set.singleton vanilla
     }
 
--- Same as quickCrossArgs (until it bitrots) but don't enable -fllvm
+perfJsFlavour :: Flavour
+perfJsFlavour = defaultFlavour
+    { name        = "perf-js"
+    , args        = defaultBuilderArgs <> perfJsArgs <> defaultPackageArgs
+    , dynamicGhcPrograms = pure False
+    , libraryWays = pure $ Set.singleton vanilla
+    , rtsWays     = pure $ Set.singleton vanilla
+    }
+
 quickJsArgs :: Args
 quickJsArgs = sourceArgs SourceArgs
     { hsDefault  = mconcat $
@@ -28,6 +36,14 @@ quickJsArgs = sourceArgs SourceArgs
                    [ stage0 ? arg "-O"
                    , stage1 ? mconcat [ arg "-O0" ] ] }
 
+perfJsArgs :: Args
+perfJsArgs = sourceArgs SourceArgs
+    { hsDefault  = mconcat [ arg "-O2", arg "-H64m"]
+    , hsLibrary  = arg "-O2"
+    , hsCompiler = arg "-O2"
+    , hsGhc      = arg "-O2"
+    }
+
 -- Please update doc/flavours.md when changing this file.
 quickCrossFlavour :: Flavour
 quickCrossFlavour = defaultFlavour



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/869bebdd8442640dde29825c77e0755913432c82

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/869bebdd8442640dde29825c77e0755913432c82
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20221010/bb57493f/attachment-0001.html>