diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-06-21 20:46:57 +0800 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-06-21 15:30:06 +0100 |
| commit | e8e5f2e80f351a42ea883eb7ef58115ae5693261 (patch) | |
| tree | d906656fb1ab66c3eb230e080626a7e3091a951c | |
| parent | 5abf59976c7335df760e5d8609d9488489478173 (diff) | |
| download | haskell-wip/hadrian-leadingunderscore.tar.gz | |
hadrian: Pass correct leading_underscore configuration to testswip/hadrian-leadingunderscore
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index 7ea8d4f364..806c31473b 100644 --- a/hadrian/src/Settings/Builders/RunTest.hs +++ b/hadrian/src/Settings/Builders/RunTest.hs @@ -63,6 +63,7 @@ runTestBuilderArgs = builder RunTest ? do let hasRtsWay w = elem w rtsWays hasLibWay w = elem w libWays hasDynamic <- getBooleanSetting TestGhcDynamic + leadingUnderscore <- getFlag LeadingUnderscore withNativeCodeGen <- getBooleanSetting TestGhcWithNativeCodeGen withInterpreter <- getBooleanSetting TestGhcWithInterpreter unregisterised <- getBooleanSetting TestGhcUnregisterised @@ -127,6 +128,7 @@ runTestBuilderArgs = builder RunTest ? do , arg "-e", arg $ asBool "ghc_with_smp=" withSMP , arg "-e", arg $ "config.ghc_dynamic=" ++ show hasDynamic + , arg "-e", arg $ "config.leading_underscore=" ++ show leadingUnderscore , arg "-e", arg $ "config.wordsize=" ++ show wordsize , arg "-e", arg $ "config.os=" ++ show os |