# HG changeset patch
# User unc0rr
# Date 1404592015 -14400
# Node ID 25f325b48a6c640d5d96231e794f1e60d7cf0b4c
# Parent  2af2309207b0751facb295de485d06c441e6d57b
Treat "out" as "var"

diff -r 2af2309207b0 -r 25f325b48a6c tools/pas2c/PascalParser.hs
--- 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"