From 4d24d4f2dcf16513746cfd4ae2d1edc30eabf109 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 3 Dec 2007 12:32:37 +0000 Subject: [PATCH] FIX #1843: Generate different instructions on PPC The old ones caused lots of unknown scattered relocation type 4 errors. Patch from Chris Kuklewicz. --- compiler/nativeGen/MachCodeGen.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4