瀏覽代碼

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

git-svn-id: trunk@9521 -
peter 18 年之前
父節點
當前提交
537319385b
共有 1 個文件被更改,包括 7 次插入0 次删除
  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;