# HG changeset patch
# User unc0rr
# Date 1336931210 -14400
# Node ID 6bd7e5ad3f2b4af3bb7de01cd6722d71746a546b
# Parent  3f23bd0f2af204da10e5756ba110c3fef30bb2af
'\xd7af' -> 0xd7af

diff -r 3f23bd0f2af2 -r 6bd7e5ad3f2b tools/pas2c.hs
--- a/tools/pas2c.hs	Sun May 13 21:39:20 2012 +0400
+++ b/tools/pas2c.hs	Sun May 13 21:46:50 2012 +0400
@@ -745,7 +745,7 @@
 expr2C (CharCode a) = do
     modify(\s -> s{lastType = BTChar})
     return $ quotes $ text "\\x" <> text (showHex (read a) "")
-expr2C (HexCharCode a) = return $ quotes $ text "\\x" <> text (map toLower a)
+expr2C (HexCharCode a) = if length a <= 2 then return $ quotes $ text "\\x" <> text (map toLower a) else expr2C $ HexNumber a
 expr2C (SetExpression ids) = mapM (id2C IOLookup) ids >>= return . parens . hcat . punctuate (text " | ")
 
 expr2C (BuiltInFunCall [e] (SimpleReference (Identifier "low" _))) = do