diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-27 10:35:45 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-27 10:35:45 +0000 |
| commit | e6748917380ae7826114c0801f1a61a4c7861bbc (patch) | |
| tree | 0b5cc7cd04651a405d9bbbaae23390aad69ab54e | |
| parent | a6f203cb4574c75d6bf091c7e1608061bbf51f78 (diff) | |
| download | haskell-e6748917380ae7826114c0801f1a61a4c7861bbc.tar.gz | |
Fix build on PPC: Add some missing parentheses
| -rw-r--r-- | compiler/nativeGen/PprMach.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs index a9621d4abc..38267d077b 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 ')' ] |