X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPPC%2FRegInfo.hs;h=ea882a0d23c7b25347d978e37ba5b3c555efcd55;hb=79607e5359a381ee5f40a5dcec313f1c94105c7b;hp=dd747224f48545746c36b4af3bea62061d23a54d;hpb=1353826e5159c9a5a81e75e0b7459271f27c08ea;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