paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 20:45:57 +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

37
compiler/pdecvar.pas
View File

@ -731,23 +731,26 @@ implementation
symdone:=false; symdone:=false;
sc.reset; sc.reset;
repeat repeat
case symtablestack.symtabletype of if (token = _ID) then
localsymtable : begin
vs:=tlocalvarsym.create(orgpattern,vs_value,generrortype,[]); case symtablestack.symtabletype of
staticsymtable, localsymtable :
globalsymtable : vs:=tlocalvarsym.create(orgpattern,vs_value,generrortype,[]);
vs:=tglobalvarsym.create(orgpattern,vs_value,generrortype,[]); staticsymtable,
recordsymtable, globalsymtable :
objectsymtable : vs:=tglobalvarsym.create(orgpattern,vs_value,generrortype,[]);
vs:=tfieldvarsym.create(orgpattern,vs_value,generrortype,[]); recordsymtable,
else objectsymtable :
internalerror(200411064); vs:=tfieldvarsym.create(orgpattern,vs_value,generrortype,[]);
end; else
symtablestack.insert(vs); internalerror(200411064);
if assigned(vs.owner) then end;
sc.insert(vs) symtablestack.insert(vs);
else if assigned(vs.owner) then
vs.free; sc.insert(vs)
else
vs.free;
end;
consume(_ID); consume(_ID);
until not try_to_consume(_COMMA); until not try_to_consume(_COMMA);
consume(_COLON); consume(_COLON);