mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
25744dd3f1
pexpr.pas, factor.factor_read_id: * don't use a cloadvmtaddrnode for accessing class properties in records + added test git-svn-id: trunk@33110 -
23 lines
341 B
ObjectPascal
23 lines
341 B
ObjectPascal
{ %NORUN }
|
|
|
|
{$mode objfpc}
|
|
{$MODESWITCH AdvancedRecords}
|
|
program tw29609;
|
|
|
|
|
|
type t = record
|
|
class var v : Boolean;
|
|
class function f : Boolean; static;
|
|
class property p : Boolean read v;
|
|
end;
|
|
|
|
|
|
class function t.f : Boolean;
|
|
begin
|
|
Result := p; // "Error: Pointer to object expected"
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|