diff options
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T13825-unit.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/regalloc/regalloc_unit_tests.hs | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/testsuite/tests/codeGen/should_run/T13825-unit.hs b/testsuite/tests/codeGen/should_run/T13825-unit.hs index c689a3a676..70b30f0d73 100644 --- a/testsuite/tests/codeGen/should_run/T13825-unit.hs +++ b/testsuite/tests/codeGen/should_run/T13825-unit.hs @@ -13,7 +13,9 @@ import GHC.Platform main :: IO () main = do [libdir] <- getArgs - runGhc (Just libdir) tests + runGhc (Just libdir) $ do + setSessionDynFlags =<< getDynFlags + tests -- How to read tests: diff --git a/testsuite/tests/regalloc/regalloc_unit_tests.hs b/testsuite/tests/regalloc/regalloc_unit_tests.hs index 496c4dc6a0..b956f2579a 100644 --- a/testsuite/tests/regalloc/regalloc_unit_tests.hs +++ b/testsuite/tests/regalloc/regalloc_unit_tests.hs @@ -64,7 +64,10 @@ main = do --get a GHC context and run the tests runGhc (Just libdir) $ do - dflags <- fmap setOptions getDynFlags + dflags0 <- fmap setOptions getDynFlags + setSessionDynFlags dflags0 + + dflags <- getDynFlags logger <- getLogger reifyGhc $ \_ -> do us <- unitTestUniqSupply |