diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-11-21 19:42:15 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-22 02:07:28 -0500 |
| commit | de5fb3489f2a9bd6dc75d0cb8925a27fe9b9084b (patch) | |
| tree | ba14be4dc415856b5c0681b13ee272f4f334e9f4 /hadrian | |
| parent | e5b68183700f159c834936be3a9b08f165fdc5e3 (diff) | |
| download | haskell-de5fb3489f2a9bd6dc75d0cb8925a27fe9b9084b.tar.gz | |
hadrian:Set TNTC when running testsuite.
Diffstat (limited to 'hadrian')
| -rw-r--r-- | hadrian/src/Settings/Builders/RunTest.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs index 40bc5f2ac6..e7935a3a33 100644 --- a/hadrian/src/Settings/Builders/RunTest.hs +++ b/hadrian/src/Settings/Builders/RunTest.hs @@ -60,7 +60,6 @@ runTestGhcFlags = do , pure "-dno-debug-output" ] - data TestCompilerArgs = TestCompilerArgs{ hasDynamicRts, hasThreadedRts :: Bool , hasDynamic :: Bool @@ -68,6 +67,7 @@ data TestCompilerArgs = TestCompilerArgs{ , withNativeCodeGen :: Bool , withInterpreter :: Bool , unregisterised :: Bool + , tables_next_to_code :: Bool , withSMP :: Bool , debugAssertions :: Bool -- ^ Whether the compiler has debug assertions enabled, @@ -99,6 +99,7 @@ inTreeCompilerArgs stg = do leadingUnderscore <- flag LeadingUnderscore withInterpreter <- ghcWithInterpreter unregisterised <- flag GhcUnregisterised + tables_next_to_code <- flag TablesNextToCode withSMP <- targetSupportsSMP debugAssertions <- ($ stg) . ghcDebugAssertions <$> flavour profiled <- ghcProfiled <$> flavour <*> pure stg @@ -144,6 +145,7 @@ outOfTreeCompilerArgs = do withNativeCodeGen <- getBooleanSetting TestGhcWithNativeCodeGen withInterpreter <- getBooleanSetting TestGhcWithInterpreter unregisterised <- getBooleanSetting TestGhcUnregisterised + tables_next_to_code <- getBooleanSetting TestGhcUnregisterised withSMP <- getBooleanSetting TestGhcWithSMP debugAssertions <- getBooleanSetting TestGhcDebugged @@ -254,6 +256,7 @@ runTestBuilderArgs = builder Testsuite ? do , arg "-e", arg $ "config.have_interp=" ++ show withInterpreter , arg "-e", arg $ "config.unregisterised=" ++ show unregisterised + , arg "-e", arg $ "config.tables_next_to_code=" ++ show tables_next_to_code , arg "-e", arg $ "ghc_compiler_always_flags=" ++ quote ghcFlags , arg "-e", arg $ asBool "ghc_with_dynamic_rts=" (hasDynamicRts) |