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

* only change the visibility of an existing getter/setter to that of

Browse Source 
its property in case the visibility of the property is higher than
    that of the getter/setter (on the JVM target when automatically
    generating getters/setters)

git-svn-id: trunk@23523 -
This commit is contained in:
Jonas Maebe 2013-01-26 16:52:32 +00:00
parent e7315d035c
commit 2ed4b295fe
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/jvm/pjvm.pas
View File

@ -932,8 +932,11 @@ implementation
parentpd:=tprocdef(tprocsym(sym).procdeflist[0]);
if parentpd.owner.defowner=p.owner.defowner then
begin
parentpd.visibility:=p.visibility;
include(parentpd.procoptions,po_auto_raised_visibility);
if parentpd.visibility<p.visibility then
begin
parentpd.visibility:=p.visibility;
include(parentpd.procoptions,po_auto_raised_visibility);
end;
{ we are done, no need to create a wrapper }
exit
end