浏览代码

--- Merging r32125 into '.':
U compiler/symtable.pas
--- Recording mergeinfo for merge of r32125 into '.':
U .

# revisions: 32125

git-svn-id: branches/fixes_3_0@33933 -

marco 9 年之前
父节点
当前提交
28d241062f
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/symtable.pas

+ 1 - 1
compiler/symtable.pas

@@ -1708,7 +1708,7 @@ implementation
             { iso mode program parameters: staticvarsyms might have the same name as a program parameters,
             { iso mode program parameters: staticvarsyms might have the same name as a program parameters,
               in this case, copy the isoindex and make the original symbol invisible }
               in this case, copy the isoindex and make the original symbol invisible }
             else if (m_iso in current_settings.modeswitches) and (hsym.typ=programparasym) and (sym.typ=staticvarsym)
             else if (m_iso in current_settings.modeswitches) and (hsym.typ=programparasym) and (sym.typ=staticvarsym)
-              and (tstaticvarsym(hsym).isoindex<>0) then
+              and (tprogramparasym(hsym).isoindex<>0) then
               begin
               begin
                 HideSym(hsym);
                 HideSym(hsym);
                 tstaticvarsym(sym).isoindex:=tprogramparasym(hsym).isoindex;
                 tstaticvarsym(sym).isoindex:=tprogramparasym(hsym).isoindex;