X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachMisc.lhs;h=e9cf788c5827807cbd06175c41b4cdca9214c1bb;hb=b08b5149482e9d88b3a0f5098e7b118e6f00e115;hp=1d3c3acb0578c2e3c088354f84b2574b8685724e;hpb=a7360d6faa67121de70fa4110d42095a278fd940;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index 1d3c3ac..e9cf788 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -736,12 +736,12 @@ fPair other = pprPanic "fPair(sparc NCG)" (ppr other)
 	      
 	      | BCC     Cond CLabel
 	      | MTCTR	Reg
-	      | BCTR
+	      | BCTR    DestInfo
 	      | BL	Imm [Reg]	-- with list of argument regs
 	      | BCTRL	[Reg]
 	      
 	      | ADD     Reg Reg RI -- dst, src1, src2    
-	      | SUBF    Reg Reg RI -- dst, src1, src2    
+	      | SUBF    Reg Reg Reg -- dst, src1, src2 ; dst = src2 - src1  
 	      | MULLW	Reg Reg RI
 	      | DIVW	Reg Reg Reg
 	      | DIVWU	Reg Reg Reg