Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Treat "out" as "var"
authorunc0rr
Sun, 06 Jul 2014 00:26:55 +0400
changeset 10353 25f325b48a6c
parent 10352 2af2309207b0
child 10357 86a823dd1d23
Treat "out" as "var"
tools/pas2c/PascalParser.hs file | annotate | diff | comparison | revisions 
--- a/tools/pas2c/PascalParser.hs	Sat Jul 05 18:51:45 2014 +0200
+++ b/tools/pas2c/PascalParser.hs	Sun Jul 06 00:26:55 2014 +0400
@@ -92,7 +92,7 @@
 
 aVarDecl :: Bool -> Parsec String u TypeVarDeclaration
 aVarDecl endsWithSemi = do
-    isVar <- liftM (== Just "var") $
+    isVar <- liftM (\i -> i == Just "var" || i == Just "out") $
         if not endsWithSemi then
             optionMaybe $ choice [
                 try $ string "var"
hedgewars