X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPPC%2FRegInfo.hs;fp=compiler%2FnativeGen%2FPPC%2FRegInfo.hs;h=ea882a0d23c7b25347d978e37ba5b3c555efcd55;hb=089482edde31defa6fd952b0ea593df948a1919b;hp=dd747224f48545746c36b4af3bea62061d23a54d;hpb=b179ed9596a3f15e5fa453d275b4f1784e7effab;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PPC/RegInfo.hs b/compiler/nativeGen/PPC/RegInfo.hs
index dd74722..ea882a0 100644
--- a/compiler/nativeGen/PPC/RegInfo.hs
+++ b/compiler/nativeGen/PPC/RegInfo.hs
@@ -206,6 +206,9 @@ isJumpish instr
  = case instr of
 	BCC{}		-> True
 	BCCFAR{}	-> True
+        BCTR{}		-> True
+        BCTRL{}		-> True
+	BL{}		-> True
 	JMP{}		-> True
 	_		-> False