X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcodeGen%2FCgCon.lhs;fp=ghc%2Fcompiler%2FcodeGen%2FCgCon.lhs;h=4b8e8c2bac575f94e0d0a9cc93da8d1b6752d439;hb=550421384b8364cdaf3135f7859c9f7d7ee1fff1;hp=47ac572ddfecd88761a39cb4e251122d76e12a9f;hpb=60ea58ab5cbf8428997d5aa8ec9163a50fe5aed3;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 47ac572..4b8e8c2 100644
--- a/ghc/compiler/codeGen/CgCon.lhs
+++ b/ghc/compiler/codeGen/CgCon.lhs
@@ -51,6 +51,7 @@ import Util
 import Outputable
 
 import List		( partition )
+import Char		( ord )
 \end{code}
 
 %************************************************************************
@@ -172,7 +173,8 @@ buildDynCon binder cc con [arg_amode]
   | maybeCharLikeCon con && in_range_char_lit arg_amode
   = returnFC (stableAmodeIdInfo binder (CCharLike arg_amode) (mkConLFInfo con))
   where
-    in_range_char_lit (CLit (MachChar val)) = val <= mAX_CHARLIKE && val >= mIN_CHARLIKE
+    in_range_char_lit (CLit (MachChar val)) = 
+	ord val <= mAX_CHARLIKE && ord val >= mIN_CHARLIKE
     in_range_char_lit _other_amode	    = False
 \end{code}