--- a/tools/pas2c/PascalUnitSyntaxTree.hs	Fri Feb 07 14:41:49 2014 +0400
+++ b/tools/pas2c/PascalUnitSyntaxTree.hs	Fri Feb 07 15:44:27 2014 +0400
@@ -26,6 +26,7 @@
     | RecordType [TypeVarDeclaration] (Maybe [[TypeVarDeclaration]])
     | PointerTo TypeDecl
     | String
+    | AString
     | Set TypeDecl
     | FunctionType TypeDecl [TypeVarDeclaration]
     | DeriveType InitExpression
@@ -100,6 +101,7 @@
 data BaseType = BTUnknown
     | BTChar
     | BTString
+    | BTAString
     | BTInt Bool -- second param indicates whether signed or not
     | BTBool
     | BTFloat