Browse Source

* support (expr[,expr]) recovery for postfixoperators

git-svn-id: trunk@9521 -
peter 17 years ago
parent
commit
537319385b
1 changed files with 7 additions and 0 deletions
  1. 7 0
      compiler/pexpr.pas

+ 7 - 0
compiler/pexpr.pas

@@ -1785,6 +1785,13 @@ implementation
                     until not try_to_consume(_COMMA);
                     consume(_RECKKLAMMER);
                   end
+                else if try_to_consume(_LKLAMMER) then
+                  begin
+                    repeat
+                      comp_expr(true);
+                    until not try_to_consume(_COMMA);
+                    consume(_RKLAMMER);
+                  end
                 else
                   break;
             until false;