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

[project @ 2002-02-04 16:47:47 by sewardj]
Implement missing MachOp, MO_8U_to_32U, for sparc.  (duh!)
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index a193401..4ef1fce 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -1265,6 +1265,7 @@ getRegister (StMachOp mop [x]) -- unary PrimOps
       MO_NatP_to_NatS -> conversionNop IntRep    x
 
       -- sign-extending widenings
+      MO_8U_to_32U    -> integerExtend False 24 x
       MO_8U_to_NatU   -> integerExtend False 24 x
       MO_8S_to_NatS   -> integerExtend True  24 x
       MO_16U_to_NatU  -> integerExtend False 16 x