diff options
Diffstat (limited to 'testsuite/tests/regalloc/regalloc_unit_tests.hs')
-rw-r--r-- | testsuite/tests/regalloc/regalloc_unit_tests.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/regalloc/regalloc_unit_tests.hs b/testsuite/tests/regalloc/regalloc_unit_tests.hs index cc4dcf7f9b..496c4dc6a0 100644 --- a/testsuite/tests/regalloc/regalloc_unit_tests.hs +++ b/testsuite/tests/regalloc/regalloc_unit_tests.hs @@ -117,8 +117,8 @@ 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 - let warningMsgs = fmap pprWarning warnings - errorMsgs = fmap pprError errors + let warningMsgs = fmap (mkParserWarn dflags') warnings + errorMsgs = fmap mkParserErr errors -- print parser errors or warnings mapM_ (printBagOfErrors logger dflags) [warningMsgs, errorMsgs] |