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