From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Fri, 13 Feb 2009 00:46:47 +0000 (+0000)
Subject: NCG: Add missing ops to powerpc isJumpish
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=089482edde31defa6fd952b0ea593df948a1919b

NCG: Add missing ops to powerpc isJumpish
---

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