diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-02-17 03:52:00 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-02-17 03:52:00 +0000 |
| commit | 0bc0144c2b982da47af56037bd2e3eac84e9560e (patch) | |
| tree | e848b42e0d885d93eed3b0e375341f449b72ffb0 /compiler/nativeGen/SPARC | |
| parent | 1ead2a7ee7cee0b72140fc687088f259dd9a0225 (diff) | |
| download | haskell-0bc0144c2b982da47af56037bd2e3eac84e9560e.tar.gz | |
SPARC NCG: Unsigned comparisons are unsigned
Diffstat (limited to 'compiler/nativeGen/SPARC')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/Gen32.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/Gen32.hs b/compiler/nativeGen/SPARC/CodeGen/Gen32.hs index 24df6b0e47..eb302a7afe 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 |