From: sewardj <unknown>
Date: Wed, 30 Jan 2002 10:52:38 +0000 (+0000)
Subject: [project @ 2002-01-30 10:52:38 by sewardj]
X-Git-Tag: Approximately_9120_patches~224
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dca430c4288ae1334cafd0d7d755634b601a73b5;p=ghc-hetmet.git

[project @ 2002-01-30 10:52:38 by sewardj]
Fix syntax error in printing indirect calls in sparc assembly.
---

diff --git a/ghc/compiler/nativeGen/PprMach.lhs b/ghc/compiler/nativeGen/PprMach.lhs
index 60870cf..84374d8 100644
--- a/ghc/compiler/nativeGen/PprMach.lhs
+++ b/ghc/compiler/nativeGen/PprMach.lhs
@@ -1690,7 +1690,7 @@ pprInstr (JMP dsts addr) = (<>) (ptext SLIT("\tjmp\t")) (pprAddr addr)
 pprInstr (CALL (Left imm) n _)
   = hcat [ ptext SLIT("\tcall\t"), pprImm imm, comma, int n ]
 pprInstr (CALL (Right reg) n _)
-  = hcat [ ptext SLIT("\tcall *\t"), pprReg reg, comma, int n ]
+  = hcat [ ptext SLIT("\tcall\t"), pprReg reg, comma, int n ]
 \end{code}
 
 Continue with SPARC-only printing bits and bobs: