Browse Source

--- 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 years ago
parent
commit
28d241062f
1 changed files with 1 additions and 1 deletions
  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,
               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)
-              and (tstaticvarsym(hsym).isoindex<>0) then
+              and (tprogramparasym(hsym).isoindex<>0) then
               begin
                 HideSym(hsym);
                 tstaticvarsym(sym).isoindex:=tprogramparasym(hsym).isoindex;