X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FMachCodeGen.hs;h=90ce6b5bf8cca25cfb2bbe5ca2ebaa16d7ecbb96;hp=8fcbbfffa7b5f9182c0505b79506adf59f7d136a;hb=34f992d36dbdd77fce2092b0363b30f878d22702;hpb=ff16c7e0d3c31e7e14618c8fd59f7a7066135360

diff --git a/ghc/compiler/nativeGen/MachCodeGen.hs b/ghc/compiler/nativeGen/MachCodeGen.hs
index 8fcbbff..90ce6b5 100644
--- a/ghc/compiler/nativeGen/MachCodeGen.hs
+++ b/ghc/compiler/nativeGen/MachCodeGen.hs
@@ -22,6 +22,7 @@ import MachInstrs
 import MachRegs
 import NCGMonad
 import PositionIndependentCode ( cmmMakeDynamicReference, initializePicBase )
+import RegAllocInfo ( mkBranchInstr )
 
 -- Our intermediate code:
 import PprCmm		( pprExpr )
@@ -2555,22 +2556,7 @@ genJump tree
 
 genBranch :: BlockId -> NatM InstrBlock
 
-#if alpha_TARGET_ARCH
-genBranch id = return (unitOL (BR id))
-#endif
-
-#if i386_TARGET_ARCH || x86_64_TARGET_ARCH
-genBranch id = return (unitOL (JXX ALWAYS id))
-#endif
-
-#if sparc_TARGET_ARCH
-genBranch (BlockId id) = return (toOL [BI ALWAYS False (ImmCLbl (mkAsmTempLabel id)), NOP])
-#endif
-
-#if powerpc_TARGET_ARCH
-genBranch id = return (unitOL (BCC ALWAYS id))
-#endif
-
+genBranch = return . toOL . mkBranchInstr
 
 -- -----------------------------------------------------------------------------
 --  Conditional jumps