--- a/tools/PascalParser.hs	Sat May 12 23:55:09 2012 +0400
+++ b/tools/PascalParser.hs	Sun May 13 00:40:01 2012 +0400
@@ -357,6 +357,7 @@
         , float pas >>= return . FloatLiteral . show
         , natural pas >>= return . NumberLiteral . show
         , try (string "_S" >> stringLiteral pas) >>= return . StringLiteral
+        , try (string "_P" >> stringLiteral pas) >>= return . PCharLiteral
         , stringLiteral pas >>= return . strOrChar
         , try (string "#$") >> many hexDigit >>= \c -> comments >> return (HexCharCode c)
         , char '#' >> many digit >>= \c -> comments >> return (CharCode c)