[Git][ghc/ghc][wip/hadrian-cross-stage2] Fix cabal flags for rts

[Matthew Pickering (@mpickering)]

Matthew Pickering pushed to branch wip/hadrian-cross-stage2 at Glasgow Haskell Compiler / GHC


Commits:
dbe81e39 by GHC GitLab CI at 2023-10-12T12:56:54+00:00
Fix cabal flags for rts

- - - - -


1 changed file:

- hadrian/src/Settings/Packages.hs


Changes:

=====================================
hadrian/src/Settings/Packages.hs
=====================================
@@ -282,8 +282,8 @@ rtsPackageArgs = package rts ? do
     targetArch     <- queryTarget stage queryArch
     targetOs       <- queryTarget stage queryOS
     targetVendor   <- queryTarget stage queryVendor
-    ghcUnreg       <- yesNo <$> queryTarget stage tgtUnregisterised
-    ghcEnableTNC   <- yesNo <$> queryTarget stage tgtTablesNextToCode
+    ghcUnreg       <- queryTarget stage tgtUnregisterised
+    ghcEnableTNC   <- queryTarget stage tgtTablesNextToCode
     rtsWays        <- getRtsWays
     way            <- getWay
     path           <- getBuildPath
@@ -352,8 +352,8 @@ rtsPackageArgs = package rts ? do
             , "-DTargetArch="                ++ show targetArch
             , "-DTargetOS="                  ++ show targetOs
             , "-DTargetVendor="              ++ show targetVendor
-            , "-DGhcUnregisterised="         ++ show ghcUnreg
-            , "-DTablesNextToCode="          ++ show ghcEnableTNC
+            , "-DGhcUnregisterised="         ++ show (yesNo ghcUnreg)
+            , "-DTablesNextToCode="          ++ show (yesNo ghcEnableTNC)
             ]
 
           -- We're after pur performance here. So make sure fast math and
@@ -400,6 +400,8 @@ rtsPackageArgs = package rts ? do
           , useSystemFfi                    `cabalFlag` "use-system-libffi"
           , targetUseLibffiForAdjustors stage     `cabalFlag` "libffi-adjustors"
           , Debug `wayUnit` way             `cabalFlag` "find-ptr"
+	  , ghcEnableTNC `cabalFlag` "tables-next-to-code"
+	  , ghcUnreg `cabalFlag` "unregisterised"
           ]
         , builder (Cabal Setup) ? mconcat
               [ cabalExtraDirs libdwIncludeDir libdwLibraryDir



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

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/dbe81e392f1671fc50b0b03b6903cd1f711428b1
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/20231012/a7b403f1/attachment-0001.html>