From: Ian Lynagh <igloo@earth.li>
Date: Mon, 3 Dec 2007 12:32:37 +0000 (+0000)
Subject: FIX #1843: Generate different instructions on PPC
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4d24d4f2dcf16513746cfd4ae2d1edc30eabf109;p=ghc-hetmet.git

FIX #1843: Generate different instructions on PPC
The old ones caused lots of
    unknown scattered relocation type 4
errors. Patch from Chris Kuklewicz.
---

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 7108c48..4692f06 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -1751,8 +1751,8 @@ getRegister (CmmLit lit)
   = let rep = cmmLitRep lit
         imm = litToImm lit
         code dst = toOL [
-              LIS dst (HI imm),
-              OR dst dst (RIImm (LO imm))
+              LIS dst (HA imm),
+              ADD dst dst (RIImm (LO imm))
           ]
     in return (Any rep code)