# HG changeset patch # User sheepluva # Date 1404593698 -7200 # Node ID 86a823dd1d23d96a3815711b28caac7f1df84fa3 # Parent 25f325b48a6c640d5d96231e794f1e60d7cf0b4c# Parent 7d1044267b8395fd65f2d0086ca0e421bdfe5c0e merge (even although I rebased... ok) diff -r 7d1044267b83 -r 86a823dd1d23 tools/pas2c/PascalParser.hs --- a/tools/pas2c/PascalParser.hs Sat Jul 05 21:22:42 2014 +0200 +++ b/tools/pas2c/PascalParser.hs Sat Jul 05 22:54:58 2014 +0200 @@ -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"