X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPprMach.hs;h=38267d077b4d63fc41c1c84e216bf8eab9519233;hb=e6748917380ae7826114c0801f1a61a4c7861bbc;hp=5e9ff513869f0b341df7307fb6e802174d81e43b;hpb=e76313a8d0703a29ee535e7c5fb6c0b657bc15d9;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 5e9ff51..38267d0 100644
--- a/compiler/nativeGen/PprMach.hs
+++ b/compiler/nativeGen/PprMach.hs
@@ -24,6 +24,8 @@ module PprMach (
 	pprInstr, pprSize, pprUserReg
   ) where
 
+#include "HsVersions.h"
+
 import Cmm
 import MachOp		( MachRep(..), wordRep, isFloatingRep )
 import MachRegs		-- may differ per-platform
@@ -599,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 ')' ]
@@ -714,7 +716,7 @@ pprASCII str
        do1 w = ptext (sLit "\t.byte\t") <> int (fromIntegral w)
 
 pprAlign bytes =
-	IF_ARCH_alpha(ptextSLIT(".align ") <> int pow2,
+	IF_ARCH_alpha(ptext (sLit ".align ") <> int pow2,
 	IF_ARCH_i386(ptext (sLit ".align ") <> int IF_OS_darwin(pow2,bytes),
 	IF_ARCH_x86_64(ptext (sLit ".align ") <> int IF_OS_darwin(pow2,bytes),
 	IF_ARCH_sparc(ptext (sLit ".align ") <> int bytes,