mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
a1923f02f8
property is private, the "used" tracking of the property itself will
indicate whether the symbol is actually used (mantis #22155)
git-svn-id: trunk@23070 -
41 lines
631 B
ObjectPascal
41 lines
631 B
ObjectPascal
{ %opt=-vn -Sen }
|
|
|
|
{$MODE DELPHI}
|
|
{.$DEFINE ALT_MODE}
|
|
|
|
type
|
|
TWrapper = class
|
|
strict private
|
|
type
|
|
TInternals = record
|
|
class procedure Z; static;
|
|
end;
|
|
class var
|
|
FInternals: TInternals;
|
|
private
|
|
class property Internals: TInternals read FInternals;
|
|
public
|
|
procedure Z;
|
|
end;
|
|
|
|
class procedure TWrapper.TInternals.Z;
|
|
begin
|
|
end;
|
|
|
|
procedure TWrapper.Z;
|
|
begin
|
|
{$IFNDEF ALT_MODE}
|
|
Internals.Z; { Class variable FInternals “unused” }
|
|
{$ELSE}
|
|
FInternals.Z; { Class property Internals “unused” }
|
|
{$ENDIF}
|
|
end;
|
|
|
|
|
|
begin
|
|
with TWrapper.Create do begin
|
|
Z;
|
|
Free;
|
|
end;
|
|
end.
|