paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-21 09:19:29 +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 else
begin begin
vs.register_sym; vs.register_sym;
symtablestack.top.insert(vs);
if isgeneric then if isgeneric then
begin begin
{ ensure correct error position } { ensure correct error position }
@ -1353,7 +1352,9 @@ implementation
current_filepos:=tmp_filepos; current_filepos:=tmp_filepos;
symtablestack.top.insert(vs); symtablestack.top.insert(vs);
current_filepos:=old_current_filepos; current_filepos:=old_current_filepos;
end; end
else
symtablestack.top.insert(vs);
end; end;
until not try_to_consume(_COMMA); until not try_to_consume(_COMMA);