--- a/tools/pas2c.hs	Sat May 12 16:45:06 2012 -0400
+++ b/tools/pas2c.hs	Sun May 13 00:50:45 2012 +0400
@@ -731,6 +731,7 @@
         escape '\'' = "\\\'"
         escape a = [a]-}
 expr2C (StringLiteral s) = addStringConst s
+expr2C (PCharLiteral s) = return . doubleQuotes $ text s
 expr2C (Reference ref) = ref2CF ref
 expr2C (PrefixOp op expr) = do
     e <- expr2C expr