paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:06:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't generate a getter/setter if no explicit prefix has been specified

Browse Source 
and the visibility of the specified getter/setter is >= the visibility
    of the property

git-svn-id: trunk@27952 -
This commit is contained in:
Jonas Maebe 2014-06-14 10:35:25 +00:00
parent 0742b65a2b
commit d384db84af
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/jvm/symcpu.pas
View File

@ -520,7 +520,8 @@ implementation
we can call it from all contexts in which the we can call it from all contexts in which the
property is visible } property is visible }
if wrongvisibility or if wrongvisibility or
(sym.RealName<>pprefix^+RealName) then ((pprefix^<>'') and
(sym.RealName<>pprefix^+RealName)) then
newaccesspd:=create_getter_or_setter_for_property(orgaccesspd,getset=palt_read) newaccesspd:=create_getter_or_setter_for_property(orgaccesspd,getset=palt_read)
end; end;
fieldvarsym: fieldvarsym: