Merged revisions 7110,7114 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r7110 | pierre | 2007-04-16 01:35:21 +0200 (Mon, 16 Apr 2007) | 1 line
  
   * fix for tbs/tb0526.pp problem
........
  r7114 | pierre | 2007-04-16 12:11:36 +0200 (Mon, 16 Apr 2007) | 1 line
  
   * try to be more strict for _ID lists
........

git-svn-id: branches/fixes_2_2@7118 -

compiler/pdecvar.pas

@@ -1181,16 +1181,17 @@ implementation
             not((vd_object in options) and
                 (idtoken in [_PUBLIC,_PRIVATE,_PUBLISHED,_PROTECTED,_STRICT])) do
            begin
-             sorg:=orgpattern;
              semicoloneaten:=false;
              sc.clear;
              repeat
-               if try_to_consume(_ID) then
+               sorg:=orgpattern;
+               if token=_ID then
                  begin
-                   vs:=tfieldvarsym.create(orgpattern,vs_value,generrordef,[]);
+                   vs:=tfieldvarsym.create(sorg,vs_value,generrordef,[]);
                    sc.add(vs);
                    recst.insert(vs);
                  end;
+               consume(_ID);
              until not try_to_consume(_COMMA);
              consume(_COLON);