--- a/tools/pas2c.hs	Sat May 12 22:13:56 2012 +0400
+++ b/tools/pas2c.hs	Sat May 12 22:44:39 2012 +0400
@@ -718,12 +718,12 @@
     return $ text s
 expr2C (FloatLiteral s) = return $ text s
 expr2C (HexNumber s) = return $ text "0x" <> (text . map toLower $ s)
-expr2C (StringLiteral [a]) = do
+{-expr2C (StringLiteral [a]) = do
     modify(\s -> s{lastType = BTChar})
     return . quotes . text $ escape a
     where
         escape '\'' = "\\\'"
-        escape a = [a]
+        escape a = [a]-}
 expr2C (StringLiteral s) = addStringConst s
 expr2C (Reference ref) = ref2CF ref
 expr2C (PrefixOp op expr) = do