From 6e1ebc29de705015b2d1d4ba6beddf7dbcd79fc5 Mon Sep 17 00:00:00 2001 From: wolfgang Date: Sun, 27 Oct 2002 21:47:36 +0000 Subject: [PATCH] [project @ 2002-10-27 21:47:36 by wolfgang] Fix a type and a bug for PowerPC. --- ghc/compiler/nativeGen/MachCode.lhs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs index 484290e..bba1d58 100644 --- a/ghc/compiler/nativeGen/MachCode.lhs +++ b/ghc/compiler/nativeGen/MachCode.lhs @@ -1565,7 +1565,6 @@ getRegister (StMachOp mop [x]) -- unary MachOps = case mop of MO_NatS_Neg -> trivialUCode NEG x MO_Nat_Not -> trivialUCode NOT x - -- MO_32U_to_8U -> trivialUCode (AND (RIImm (ImmInt 255))) x MO_32U_to_8U -> trivialCode AND x (StInt 255) MO_Flt_to_NatS -> coerceFP2Int FloatRep x @@ -1573,7 +1572,7 @@ getRegister (StMachOp mop [x]) -- unary MachOps MO_Dbl_to_NatS -> coerceFP2Int DoubleRep x MO_NatS_to_Dbl -> coerceInt2FP DoubleRep x - -- Conversions which are a nop on x86 + -- Conversions which are a nop on PPC MO_NatS_to_32U -> conversionNop WordRep x MO_32U_to_NatS -> conversionNop IntRep x MO_32U_to_NatU -> conversionNop WordRep x @@ -4214,7 +4213,7 @@ trivialFCode pk instr x y code__2 dst = if pk1 == pk2 then code1 `appOL` code2 `snocOL` - instr (primRepToSize pk) src1 src2 dst + instr (primRepToSize pk) dst src1 src2 else panic "###PPC MachCode.trivialFCode: type mismatch" in returnNat (Any (if pk1 == pk2 then pk1 else DoubleRep) code__2) -- 1.7.10.4