[project @ 2003-12-10 14:15:16 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgCon.lhs

diff --git a/ghc/compiler/codeGen/CgCon.lhs b/ghc/compiler/codeGen/CgCon.lhs
index 47ac572..4b8e8c2 100644 (file)
--- 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}