mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:23:25 +02:00
8634aa8ad2
o only create an accessor wrapping the inherited accessor at a
potentially lower visibility level if the overriding property
itself does not specify a different accessor to use
o simplified code
o tests
git-svn-id: trunk@27954 -
17 lines
237 B
ObjectPascal
17 lines
237 B
ObjectPascal
program tprop6a;
|
|
|
|
uses
|
|
tprop6;
|
|
var
|
|
c: tbaseclassprop6;
|
|
d: tderivedclassprop6;
|
|
begin
|
|
c:=tbaseclassprop6.create;
|
|
c.level:=4;
|
|
if c.level<>4 then
|
|
halt(1);
|
|
d:=tderivedclassprop6.create;
|
|
d.level:=5;
|
|
halt(d.level-6);
|
|
end.
|