From: simonpj <unknown>
Date: Fri, 13 Sep 2002 16:09:26 +0000 (+0000)
Subject: [project @ 2002-09-13 16:09:26 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1681
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c25f766740e101892a33fdf2dde0c68648b0232b;p=ghc-hetmet.git

[project @ 2002-09-13 16:09:26 by simonpj]
Native code gen primpops (courtesy Julian)
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 8ac49b8..1126080 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -862,8 +862,9 @@ getRegister (StMachOp mop [x]) -- unary MachOps
       MO_NatS_to_Dbl -> coerceInt2FP DoubleRep x
 
       -- Conversions which are a nop on x86
-      MO_NatS_to_32U  -> conversionNop WordRep   x
       MO_32U_to_NatS  -> conversionNop IntRep    x
+      MO_32S_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
@@ -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_32S_to_NatS  -> conversionNop IntRep   x
       MO_NatS_to_32U   -> conversionNop WordRep  x
       MO_32U_to_NatU   -> conversionNop WordRep  x