Exclude \DEL from C-string literal characters.
commit8f38baab965d9504ba38ca4610be86b3f1b2e31f
authorMatus Tejiscak <ziman@functor.sk>
dateSun 19 Jan 2014, 14:12 (13 years ago)
parent543f41d
src/IRTS/CodegenC.hs+1−1
@@ -114,7 +114,7 @@ showCStr s = '"' : foldr ((++) . showChar) "\"" s
114114 showChar c
115115 | ord c < 0x10 = "\\x0" ++ showHex (ord c) ""
116116 | ord c < 0x20 = "\\x" ++ showHex (ord c) ""
117− | ord c < 0x80 = [c]
117+ | ord c < 0x7f = [c] -- 0x7f = \DEL
118118 | ord c < 0x100 = "\\x" ++ showHex (ord c) ""
119119 | otherwise = error $ "non-8-bit character in string literal: " ++ show c
120120