diff options
| author | Andre Marianiello <andremarianiello@users.noreply.github.com> | 2022-05-05 20:40:31 -0400 |
|---|---|---|
| committer | andremarianiello <andre.marianiello@gmail.com> | 2022-05-12 02:15:48 +0000 |
| commit | a2dcad4e6f75c08aacc5902a20ca4c773819d7b7 (patch) | |
| tree | df82d9f998dc5c8d9454479d5e6682496d6fc813 /testsuite/tests/regalloc | |
| parent | 2c00a8d0ba4bc37e212a723fc025f83c471986c5 (diff) | |
| download | haskell-a2dcad4e6f75c08aacc5902a20ca4c773819d7b7.tar.gz | |
Decouple dynflags in Cmm parser (related to #17957)
Diffstat (limited to 'testsuite/tests/regalloc')
| -rw-r--r-- | testsuite/tests/regalloc/regalloc_unit_tests.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/testsuite/tests/regalloc/regalloc_unit_tests.hs b/testsuite/tests/regalloc/regalloc_unit_tests.hs index 8e9721ec2e..04e59a9ce9 100644 --- a/testsuite/tests/regalloc/regalloc_unit_tests.hs +++ b/testsuite/tests/regalloc/regalloc_unit_tests.hs @@ -24,6 +24,7 @@ import qualified GHC.CmmToAsm.Reg.Graph.Stats as Color import qualified GHC.CmmToAsm.Reg.Linear.Base as Linear import qualified GHC.CmmToAsm.X86.Instr as X86.Instr import qualified GHC.CmmToAsm.X86 as X86 +import GHC.Driver.Config.Cmm.Parser import GHC.Driver.Config.CmmToAsm import GHC.Driver.Main import GHC.Driver.Env @@ -48,6 +49,7 @@ import GHC.Driver.Errors import GHC.Utils.Error import GHC.Utils.Logger import GHC.Utils.Outputable +import GHC.Utils.Panic import GHC.Types.Basic import GHC.Unit.Home import GHC.Unit.Finder @@ -131,7 +133,9 @@ compileCmmForRegAllocStats logger dflags cmmFile ncgImplF us = do -- parse the cmm file and output any warnings or errors let fake_mod = mkHomeModule (hsc_home_unit hscEnv) (mkModuleName "fake") - (warnings, errors, parsedCmm) <- parseCmmFile dflags fake_mod (hsc_home_unit hscEnv) cmmFile + no_module = panic "compileCmmForRegAllocStats: no module" + cmmpConfig = initCmmParserConfig dflags no_module + (warnings, errors, parsedCmm) <- parseCmmFile cmmpConfig fake_mod (hsc_home_unit hscEnv) cmmFile -- print parser errors or warnings let !diag_opts = initDiagOpts dflags |