From 5e2dabea8de9ed9c6064bf8ce1570f5ca5742179 Mon Sep 17 00:00:00 2001
From: "mrchebas@gmail.com" <unknown>
Date: Wed, 17 Jan 2007 13:00:37 +0000
Subject: [PATCH] prettifying Cmm a bit: convert (x + (-N)) to (x - N)

---
 compiler/cmm/PprCmm.hs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs
index 6321410..714c80e 100644
--- a/compiler/cmm/PprCmm.hs
+++ b/compiler/cmm/PprCmm.hs
@@ -292,6 +292,8 @@ infixMachOp1 (MO_U_Lt   _) = Just (char '<')
 infixMachOp1 _             = Nothing
 
 -- %left '-' '+'
+pprExpr7 (CmmMachOp (MO_Add rep1) [x, CmmLit (CmmInt i rep2)]) | i < 0
+   = pprExpr7 (CmmMachOp (MO_Sub rep1) [x, CmmLit (CmmInt (negate i) rep2)])
 pprExpr7 (CmmMachOp op [x,y]) | Just doc <- infixMachOp7 op
    = pprExpr7 x <+> doc <+> pprExpr8 y
 pprExpr7 e = pprExpr8 e
-- 
1.7.10.4