--- a/tools/pas2c/PascalUnitSyntaxTree.hs	Mon Jan 05 11:35:04 2015 +0300
+++ b/tools/pas2c/PascalUnitSyntaxTree.hs	Mon Jan 05 18:30:43 2015 +0300
@@ -89,6 +89,7 @@
     | InitNumber String
     | InitHexNumber String
     | InitString String
+    | InitPChar String
     | InitChar String
     | BuiltInFunction String [InitExpression]
     | InitSet [InitExpression]