paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@32125 -
This commit is contained in:
florian 2015-10-22 19:07:31 +00:00
parent ad28a21b45
commit 0ffe6157a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symtable.pas
View File

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