X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocInfo.hs;fp=compiler%2FnativeGen%2FRegAllocInfo.hs;h=1b8bdb6c9d527b5a6d61e92b67371ff379f28ac4;hb=8db404018f101a182c92cc724a8de08cf5ab10ba;hp=0992f6eca8b41d8c1b74bdd9a38587ce0fef0b1e;hpb=8480018a7f5f1cd961f3bd8ae758cc01910d5e6a;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocInfo.hs b/compiler/nativeGen/RegAllocInfo.hs
index 0992f6e..1b8bdb6 100644
--- a/compiler/nativeGen/RegAllocInfo.hs
+++ b/compiler/nativeGen/RegAllocInfo.hs
@@ -421,6 +421,11 @@ jumpDests insn acc
         BCC _ id        -> id : acc
         BCCFAR _ id     -> id : acc
         BCTR targets    -> targets ++ acc
+#elif sparc_TARGET_ARCH
+	BI   _ _ id	-> id : acc
+	BF   _ _ id	-> id : acc
+#else
+#error "RegAllocInfo.jumpDests not finished"
 #endif
 	_other		-> acc
 
@@ -908,7 +913,7 @@ mkBranchInstr id = [JXX ALWAYS id]
 #endif
 
 #if sparc_TARGET_ARCH
-mkBranchInstr (BlockId id) = [BI ALWAYS False (ImmCLbl (mkAsmTempLabel id)), NOP]
+mkBranchInstr id = [BI ALWAYS False id, NOP]
 #endif
 
 #if powerpc_TARGET_ARCH