Przeglądaj źródła

* insert symbol only once

git-svn-id: trunk@36620 -
svenbarth 8 lat temu
rodzic
commit
ad65ff5600
1 zmienionych plików z 3 dodań i 2 usunięć
  1. 3 2
      compiler/pdecvar.pas

+ 3 - 2
compiler/pdecvar.pas

@@ -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);