projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e408d5
)
[project @ 2002-02-04 17:09:02 by sewardj]
author
sewardj
<unknown>
Mon, 4 Feb 2002 17:09:02 +0000
(17:09 +0000)
committer
sewardj
<unknown>
Mon, 4 Feb 2002 17:09:02 +0000
(17:09 +0000)
Also implement MO_32U_to_8U for sparc. sigh.
ghc/compiler/nativeGen/MachCode.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/nativeGen/MachCode.lhs
b/ghc/compiler/nativeGen/MachCode.lhs
index
4ef1fce
..
1806565
100644
(file)
--- 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