Quellcode durchsuchen

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

git-svn-id: trunk@32125 -
florian vor 9 Jahren
Ursprung
Commit
0ffe6157a8
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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,
               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;