From: sewardj <unknown>
Date: Mon, 4 Feb 2002 17:09:02 +0000 (+0000)
Subject: [project @ 2002-02-04 17:09:02 by sewardj]
X-Git-Tag: Approximately_9120_patches~165
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5316d543e2dd03d9b70cadb0171c1b0720709ae0;p=ghc-hetmet.git

[project @ 2002-02-04 17:09:02 by sewardj]
Also implement MO_32U_to_8U for sparc.  sigh.
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 4ef1fce..1806565 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -1241,6 +1241,7 @@ getRegister (StMachOp mop [x]) -- unary PrimOps
   = case mop of
       MO_NatS_Neg      -> trivialUCode (SUB False False g0) x
       MO_Nat_Not       -> trivialUCode (XNOR False g0) x
+      MO_32U_to_8U     -> trivialCode (AND False) x (StInt 255)
 
       MO_Flt_Neg       -> trivialUFCode FloatRep (FNEG F) x
       MO_Dbl_Neg       -> trivialUFCode DoubleRep (FNEG DF) x