Browse Source

* fixed parsing of spezialitions taking more than one argument

git-svn-id: trunk@5311 -
florian 19 years ago
parent
commit
b0104f2ec8
1 changed files with 3 additions and 4 deletions
  1. 3 4
      compiler/ptype.pas

+ 3 - 4
compiler/ptype.pas

@@ -125,10 +125,9 @@ implementation
                (ttypesym(sym).typedef.typ=undefineddef) then
               begin
                 if not first then
-                  begin
-                    consume(_COMMA);
-                    first:=false;
-                  end;
+                  consume(_COMMA)
+                else
+                  first:=false;
                 pt2:=factor(false);
                 if pt2.nodetype=typen then
                   begin