diff options
Diffstat (limited to 'hadrian/src/Rules/Gmp.hs')
-rw-r--r-- | hadrian/src/Rules/Gmp.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/hadrian/src/Rules/Gmp.hs b/hadrian/src/Rules/Gmp.hs index f6222a6643..60db9c9017 100644 --- a/hadrian/src/Rules/Gmp.hs +++ b/hadrian/src/Rules/Gmp.hs @@ -12,6 +12,8 @@ import Utilities import Hadrian.BuildPath import Hadrian.Expression import Settings.Builders.Common (cArgs) +import GHC.Toolchain (ccProgram, tgtCCompiler) +import GHC.Toolchain.Program -- | Build in-tree GMP library objects (if GmpInTree flag is set) and return -- their paths. @@ -122,7 +124,7 @@ gmpRules = do let gmpBuildP = takeDirectory mk gmpP = takeDirectory gmpBuildP ctx <- makeGmpPathContext gmpP - cFlags <- interpretInContext ctx $ mconcat [ cArgs, getStagedSettingList ConfCcArgs ] + cFlags <- interpretInContext ctx $ mconcat [ cArgs, prgFlags . ccProgram . tgtCCompiler <$> getStagedTargetConfig ] env <- sequence [ builderEnvironment "CC" $ Cc CompileC (stage ctx) , return . AddEnv "CFLAGS" $ unwords cFlags |