From: simonmar <unknown>
Date: Tue, 10 Jan 2006 14:46:50 +0000 (+0000)
Subject: [project @ 2006-01-10 14:46:50 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~39
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3a0d52e19bfb1f3f96af0950ac2329730c659e53;p=ghc-hetmet.git

[project @ 2006-01-10 14:46:50 by simonmar]
Char primops: the Char# rep is wordRep, not I32 (fixed -dcmm-lint
problems on x86_64)
---

diff --git a/ghc/compiler/codeGen/CgPrimOp.hs b/ghc/compiler/codeGen/CgPrimOp.hs
index e59aafd..bd54204 100644
--- a/ghc/compiler/codeGen/CgPrimOp.hs
+++ b/ghc/compiler/codeGen/CgPrimOp.hs
@@ -405,12 +405,12 @@ translateOp AddrLtOp       = Just mo_wordULt
 
 -- 32-bit unsigned ops
 
-translateOp CharEqOp       = Just (MO_Eq I32)
-translateOp CharNeOp       = Just (MO_Ne I32)
-translateOp CharGeOp       = Just (MO_U_Ge I32)
-translateOp CharLeOp       = Just (MO_U_Le I32)
-translateOp CharGtOp       = Just (MO_U_Gt I32)
-translateOp CharLtOp       = Just (MO_U_Lt I32)
+translateOp CharEqOp       = Just (MO_Eq wordRep)
+translateOp CharNeOp       = Just (MO_Ne wordRep)
+translateOp CharGeOp       = Just (MO_U_Ge wordRep)
+translateOp CharLeOp       = Just (MO_U_Le wordRep)
+translateOp CharGtOp       = Just (MO_U_Gt wordRep)
+translateOp CharLtOp       = Just (MO_U_Lt wordRep)
 
 -- Double ops