From: Ian Lynagh <igloo@earth.li>
Date: Sun, 27 Apr 2008 10:35:45 +0000 (+0000)
Subject: Fix build on PPC: Add some missing parentheses
X-Git-Tag: 2008-05-28~167
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e6748917380ae7826114c0801f1a61a4c7861bbc

Fix build on PPC: Add some missing parentheses
---

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index a9621d4..38267d0 100644
--- a/compiler/nativeGen/PprMach.hs
+++ b/compiler/nativeGen/PprMach.hs
@@ -601,7 +601,7 @@ pprAddr (AddrRegImm r1 imm)
 
 #if powerpc_TARGET_ARCH
 pprAddr (AddrRegReg r1 r2)
-  = pprReg r1 <+> ptext sLit ", " <+> pprReg r2
+  = pprReg r1 <+> ptext (sLit ", ") <+> pprReg r2
 
 pprAddr (AddrRegImm r1 (ImmInt i)) = hcat [ int i, char '(', pprReg r1, char ')' ]
 pprAddr (AddrRegImm r1 (ImmInteger i)) = hcat [ integer i, char '(', pprReg r1, char ')' ]