diff options
Diffstat (limited to 'compiler/GHC/CmmToAsm')
| -rw-r--r-- | compiler/GHC/CmmToAsm/CFG.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/CodeGen.hs | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/compiler/GHC/CmmToAsm/CFG.hs b/compiler/GHC/CmmToAsm/CFG.hs index 8a8907e6b4..fd20bd1c9f 100644 --- a/compiler/GHC/CmmToAsm/CFG.hs +++ b/compiler/GHC/CmmToAsm/CFG.hs @@ -660,7 +660,7 @@ getCfg platform weights graph = (CmmCall { cml_cont = Nothing }) -> [] other -> panic "Foo" $ - assertPpr False (ppr "Unknown successor cause:" <> + assertPpr False (text "Unknown successor cause:" <> (pdoc platform branch <+> text "=>" <> pdoc platform (G.successors other))) $ map (\x -> ((bid,x),mkEdgeInfo 0)) $ G.successors other where diff --git a/compiler/GHC/CmmToAsm/X86/CodeGen.hs b/compiler/GHC/CmmToAsm/X86/CodeGen.hs index 295cd9f555..3c34109c64 100644 --- a/compiler/GHC/CmmToAsm/X86/CodeGen.hs +++ b/compiler/GHC/CmmToAsm/X86/CodeGen.hs @@ -2015,10 +2015,10 @@ genCondBranch' _ bid id false bool = do -- Use ASSERT so we don't break releases if -- LTT/LE creep in somehow. LTT -> - assertPpr False (ppr "Should have been turned into >") + assertPpr False (text "Should have been turned into >") and_ordered LE -> - assertPpr False (ppr "Should have been turned into >=") + assertPpr False (text "Should have been turned into >=") and_ordered _ -> and_ordered @@ -3088,9 +3088,9 @@ condFltReg is32Bit cond x y = condFltReg_sse2 GU -> plain_test dst GEU -> plain_test dst -- Use ASSERT so we don't break releases if these creep in. - LTT -> assertPpr False (ppr "Should have been turned into >") $ + LTT -> assertPpr False (text "Should have been turned into >") $ and_ordered dst - LE -> assertPpr False (ppr "Should have been turned into >=") $ + LE -> assertPpr False (text "Should have been turned into >=") $ and_ordered dst _ -> and_ordered dst) |