Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tools/pas2c/PascalParser.hs
changeset 10120 b7f632c12784
parent 10113 b26c2772e754
child 10129 cd2a64a1f4aa 
--- 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
hedgewars