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

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

git-svn-id: trunk@27952 -

compiler/jvm/symcpu.pas

@@ -520,7 +520,8 @@ implementation
               we can call it from all contexts in which the
               property is visible }
             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)
           end;
         fieldvarsym: