paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 16:16:03 +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;
sc.reset;
repeat
if (token = _ID) then
begin
case symtablestack.symtabletype of
localsymtable :
vs:=tlocalvarsym.create(orgpattern,vs_value,generrortype,[]);
@ -748,6 +750,7 @@ implementation
sc.insert(vs)
else
vs.free;
end;
consume(_ID);
until not try_to_consume(_COMMA);
consume(_COLON);