--- a/tools/pas2c/PascalUnitSyntaxTree.hs	Sun Jan 04 14:04:17 2015 -0500
+++ b/tools/pas2c/PascalUnitSyntaxTree.hs	Tue Jan 06 17:07:34 2015 +0100
@@ -89,6 +89,7 @@
     | InitNumber String
     | InitHexNumber String
     | InitString String
+    | InitPChar String
     | InitChar String
     | BuiltInFunction String [InitExpression]
     | InitSet [InitExpression]