Explorar o código

* cast hsym with the correct type, should resolve issue #28862

git-svn-id: trunk@32125 -
florian %!s(int64=9) %!d(string=hai) anos
pai
achega
0ffe6157a8
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/symtable.pas

+ 1 - 1
compiler/symtable.pas

@@ -2207,7 +2207,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;