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

* fixed web bug #4461

Browse Source 
git-svn-id: trunk@1921 -
This commit is contained in:
Jonas Maebe 2005-12-10 21:57:33 +00:00
parent 07ea2a5b38
commit 4c6874504b
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecvar.pas
View File

@ -731,6 +731,8 @@ implementation
symdone:=false; symdone:=false;
sc.reset; sc.reset;
repeat repeat
if (token = _ID) then
begin
case symtablestack.symtabletype of case symtablestack.symtabletype of
localsymtable : localsymtable :
vs:=tlocalvarsym.create(orgpattern,vs_value,generrortype,[]); vs:=tlocalvarsym.create(orgpattern,vs_value,generrortype,[]);
@ -748,6 +750,7 @@ implementation
sc.insert(vs) sc.insert(vs)
else else
vs.free; vs.free;
end;
consume(_ID); consume(_ID);
until not try_to_consume(_COMMA); until not try_to_consume(_COMMA);
consume(_COLON); consume(_COLON);