diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-11-21 19:42:15 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-11-21 19:42:15 +0100 |
| commit | a8ce1dabd1ea5d393c9984b2f7424201d04a4f37 (patch) | |
| tree | 51917aa79be87039318f690d1c624431e130ac67 | |
| parent | 451aeac3b07f171f148995717d0d9a1eefe08f0e (diff) | |
| download | haskell-wip/andreask/hadrian_tntc.tar.gz | |
hadrian:Set TNTC when running testsuite.wip/andreask/hadrian_tntc
| -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) |