From 200d2b8bd462a8356e5cf731a99055d4c7461959 Mon Sep 17 00:00:00 2001 From: "mrchebas@gmail.com" Date: Wed, 17 Jan 2007 13:32:34 +0000 Subject: [PATCH] prettifying Cmm: print MachOps as identifiers by replacing ' ' with '_' --- compiler/cmm/PprCmm.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 714c80e..cb2adf7 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -339,7 +339,10 @@ genMachOp mop args || isJust (infixMachOp7 mop) || isJust (infixMachOp8 mop) = parens (pprExpr (CmmMachOp mop args)) - | otherwise = char '%' <> pprMachOp mop <> parens (commafy (map pprExpr args)) + | otherwise = char '%' <> ppr_op <> parens (commafy (map pprExpr args)) + where ppr_op = text (map (\c -> if c == ' ' then '_' else c) + (show mop)) + -- replace spaces in (show mop) with underscores, -- -- Unsigned ops on the word size of the machine get nice symbols. -- 1.7.10.4