From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Tue, 17 Feb 2009 03:52:00 +0000 (+0000)
Subject: SPARC NCG: Unsigned comparisons are unsigned
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0bc0144c2b982da47af56037bd2e3eac84e9560e;p=ghc-hetmet.git

SPARC NCG: Unsigned comparisons are unsigned
---

diff --git a/compiler/nativeGen/SPARC/CodeGen/Gen32.hs b/compiler/nativeGen/SPARC/CodeGen/Gen32.hs
index 24df6b0..eb302a7 100644
--- 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