paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* insert symbol only once

Browse Source 
git-svn-id: trunk@36620 -
This commit is contained in:
svenbarth 2017-06-30 15:59:33 +00:00
parent aaf7f5137e
commit ad65ff5600
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecvar.pas
View File

@ -1345,7 +1345,6 @@ implementation
else
begin
vs.register_sym;
symtablestack.top.insert(vs);
if isgeneric then
begin
{ ensure correct error position }
@ -1353,7 +1352,9 @@ implementation
current_filepos:=tmp_filepos;
symtablestack.top.insert(vs);
current_filepos:=old_current_filepos;
end;
end
else
symtablestack.top.insert(vs);
end;
until not try_to_consume(_COMMA);