mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-09 01:57:39 +01:00
e9f4b095e1
* fixed accessibility checking for strict_protected (the class
in which the access occurs also has to be related to the
objectdef of which a symbol is accessed) + test
git-svn-id: trunk@22565 -
28 lines
249 B
ObjectPascal
28 lines
249 B
ObjectPascal
{ %fail }
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
unit tsprot;
|
|
|
|
interface
|
|
|
|
uses
|
|
usprot1,usprot2;
|
|
|
|
type
|
|
tchild2 = class(tbase)
|
|
f: tchild1;
|
|
procedure test;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure tchild2.test;
|
|
begin
|
|
f.pmethod;
|
|
end;
|
|
|
|
end.
|