--- a/tools/pas2c/PascalParser.hs	Fri Feb 07 14:41:49 2014 +0400
+++ b/tools/pas2c/PascalParser.hs	Fri Feb 07 15:44:27 2014 +0400
@@ -138,7 +138,7 @@
     char' '^' >> typeDecl >>= return . PointerTo
     , try (string' "shortstring") >> return String
     , try (string' "string") >> optionMaybe (brackets pas $ integer pas) >> return String
-    , try (string' "ansistring") >> optionMaybe (brackets pas $ integer pas) >> return String
+    , try (string' "ansistring") >> optionMaybe (brackets pas $ integer pas) >> return AString
     , arrayDecl
     , recordDecl
     , setDecl