From: naur@post11.tele.dk <unknown>
Date: Sun, 19 Dec 2010 21:35:55 +0000 (+0000)
Subject: Fix error compiling AsmCodeGen.lhs for PPC Mac (unused makeFar addr)
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=156ad6ced409ae59bc9558b4a2546c870eb57365;p=ghc-hetmet.git

Fix error compiling AsmCodeGen.lhs for PPC Mac (unused makeFar addr)
---

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index 9ba3dfd..68d25de 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -588,14 +588,14 @@ makeFarBranches blocks
         handleBlock addr (BasicBlock id instrs)
                 = BasicBlock id (zipWith makeFar [addr..] instrs)
         
-        makeFar addr (BCC ALWAYS tgt) = BCC ALWAYS tgt
+        makeFar _ (BCC ALWAYS tgt) = BCC ALWAYS tgt
         makeFar addr (BCC cond tgt)
             | abs (addr - targetAddr) >= nearLimit
             = BCCFAR cond tgt
             | otherwise
             = BCC cond tgt
             where Just targetAddr = lookupUFM blockAddressMap tgt
-        makeFar addr other            = other
+        makeFar _ other            = other
         
         nearLimit = 7000 -- 8192 instructions are allowed; let's keep some
                          -- distance, as we have a few pseudo-insns that are