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 10111 459bc720cea1
parent 9954 bf51bc7e2808
child 10113 b26c2772e754 
--- a/tools/pas2c/PascalParser.hs	Thu Feb 06 19:05:22 2014 +0100
+++ b/tools/pas2c/PascalParser.hs	Thu Feb 06 23:02:35 2014 +0400
@@ -121,9 +121,9 @@
 
 typeDecl = choice [
     char '^' >> typeDecl >>= return . PointerTo
-    , try (string "shortstring") >> return (String 255)
-    , try (string "string") >> optionMaybe (brackets pas $ integer pas) >>= return . String . fromMaybe 255
-    , try (string "ansistring") >> optionMaybe (brackets pas $ integer pas) >>= return . String . fromMaybe 255
+    , 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
     , arrayDecl
     , recordDecl
     , setDecl
hedgewars