Update an error message

[ghc-hetmet.git] / compiler / nativeGen / PprMach.hs

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 64fa024..38267d0 100644 (file)
--- 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 ')' ]