9857679 · Idris-dev · git.iko.soy

git.iko.soy/Idris-dev

Fix Char literal matching in C codegen

commit9857679c3d2c6e5a39e6fbf3f6753862a8563d85 authorMelvar Chen <Melvar.Chen@googlemail.com> dateMon 11 Nov 2013, 17:47 (13 years ago) parent848d5b9

1 file changed+1−1

unifiedsplit

src/IRTS/CodegenC.hs+1−1

@@ -201,7 +201,7 @@ bcc i (CONSTCASE r code def)

201201 indent i ++ "if (GETINT(" ++ v ++ ") == " ++ show b ++ ") {\n"

202202 ++ concatMap (bcc (i+1)) bc ++ indent i ++ "} else\n"

203203 iCase v (Ch b, bc) =

204− indent i ++ "if (GETINT(" ++ v ++ ") == " ++ show b ++ ") {\n"

204+ indent i ++ "if (GETINT(" ++ v ++ ") == " ++ show (fromEnum b) ++ ") {\n"

205205 ++ concatMap (bcc (i+1)) bc ++ indent i ++ "} else\n"

206206

207207 showCase i (t, bc) = indent i ++ "case " ++ show t ++ ":\n"