--- a/tools/pas2c/PascalParser.hs Mon Jan 05 11:35:04 2015 +0300
+++ b/tools/pas2c/PascalParser.hs Mon Jan 05 18:30:43 2015 +0300
@@ -629,6 +629,8 @@
, try $ integer pas >>= \i -> notFollowedBy (char' '.') >> (return . InitNumber . show) i
, try $ float pas >>= return . InitFloat . show
, try $ integer pas >>= return . InitNumber . show
+ , try (string' "_S" >> stringLiteral pas) >>= return . InitString
+ , try (string' "_P" >> stringLiteral pas) >>= return . InitPChar
, stringLiteral pas >>= return . InitString
, char' '#' >> many digit >>= \c -> comments >> return (InitChar c)
, char' '$' >> many hexDigit >>= \h -> comments >> return (InitHexNumber h)