From: mrchebas@gmail.com <unknown>
Date: Wed, 17 Jan 2007 13:32:34 +0000 (+0000)
Subject: prettifying Cmm: print MachOps as identifiers by replacing ' ' with '_'
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=200d2b8bd462a8356e5cf731a99055d4c7461959;hp=5e2dabea8de9ed9c6064bf8ce1570f5ca5742179

prettifying Cmm: print MachOps as identifiers by replacing ' ' with '_'
---

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.