Commit 5316d543 authored by sewardj's avatar sewardj
Browse files

[project @ 2002-02-04 17:09:02 by sewardj]

Also implement MO_32U_to_8U for sparc.  sigh.
parent 4e408d57
...@@ -1241,6 +1241,7 @@ getRegister (StMachOp mop [x]) -- unary PrimOps ...@@ -1241,6 +1241,7 @@ getRegister (StMachOp mop [x]) -- unary PrimOps
= case mop of = case mop of
MO_NatS_Neg -> trivialUCode (SUB False False g0) x MO_NatS_Neg -> trivialUCode (SUB False False g0) x
MO_Nat_Not -> trivialUCode (XNOR 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_Flt_Neg -> trivialUFCode FloatRep (FNEG F) x
MO_Dbl_Neg -> trivialUFCode DoubleRep (FNEG DF) x MO_Dbl_Neg -> trivialUFCode DoubleRep (FNEG DF) x
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment