paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for tbs/tb0526.pp problem

Browse Source 
git-svn-id: trunk@7110 -
This commit is contained in:
pierre 2007-04-15 23:35:21 +00:00
parent 0afecd6da8
commit e3a22ba730
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

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