projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
1ead2a7
)
SPARC NCG: Unsigned comparisons are unsigned
author
Ben.Lippmeier@anu.edu.au
<unknown>
Tue, 17 Feb 2009 03:52:00 +0000
(
03:52
+0000)
committer
Ben.Lippmeier@anu.edu.au
<unknown>
Tue, 17 Feb 2009 03:52:00 +0000
(
03:52
+0000)
compiler/nativeGen/SPARC/CodeGen/Gen32.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/SPARC/CodeGen/Gen32.hs
b/compiler/nativeGen/SPARC/CodeGen/Gen32.hs
index
24df6b0
..
eb302a7
100644
(file)
--- a/
compiler/nativeGen/SPARC/CodeGen/Gen32.hs
+++ b/
compiler/nativeGen/SPARC/CodeGen/Gen32.hs
@@
-188,10
+188,10
@@
getRegister (CmmMachOp mop [x, y])
MO_S_Lt _ -> condIntReg LTT x y
MO_S_Le _ -> condIntReg LE x y
- MO_U_Gt W32 -> condIntReg GTT x y
- MO_U_Ge W32 -> condIntReg GE x y
- MO_U_Lt W32 -> condIntReg LTT x y
- MO_U_Le W32 -> condIntReg LE x y
+ MO_U_Gt W32 -> condIntReg GU x y
+ MO_U_Ge W32 -> condIntReg GEU x y
+ MO_U_Lt W32 -> condIntReg LU x y
+ MO_U_Le W32 -> condIntReg LEU x y
MO_U_Gt W16 -> condIntReg GU x y
MO_U_Ge W16 -> condIntReg GEU x y