[project @ 2002-06-20 08:31:48 by simonpj]

Teach code gen about some extra no-ops

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 1c00641..013a8eb 100644 (file)
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -864,6 +864,7 @@ getRegister (StMachOp mop [x]) -- unary MachOps
       -- Conversions which are a nop on x86
       MO_NatS_to_32U  -> conversionNop WordRep   x
       MO_32U_to_NatS  -> conversionNop IntRep    x
+      MO_32U_to_NatU  -> conversionNop WordRep   x
 
       MO_NatU_to_NatS -> conversionNop IntRep    x
       MO_NatS_to_NatU -> conversionNop WordRep   x
@@ -1258,6 +1259,7 @@ getRegister (StMachOp mop [x]) -- unary PrimOps
       -- Conversions which are a nop on sparc
       MO_32U_to_NatS   -> conversionNop IntRep   x
       MO_NatS_to_32U   -> conversionNop WordRep  x
+      MO_32U_to_NatU   -> conversionNop WordRep  x
 
       MO_NatU_to_NatS -> conversionNop IntRep    x
       MO_NatS_to_NatU -> conversionNop WordRep   x