mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
9ea38f4577
support for nested types when generating an access to a static fied;
we also always do that when generating the mangled name of a static
field declaration in symcreat.make_field_static() (mantis #29030)
git-svn-id: trunk@32517 -
20 lines
305 B
ObjectPascal
20 lines
305 B
ObjectPascal
program fpc_nestedtype_ice;
|
|
|
|
{$mode delphiunicode}
|
|
|
|
Type
|
|
TRec = Record
|
|
Type
|
|
NestedType = Record
|
|
Class Var
|
|
FVar : Integer;
|
|
Class Property Variable : Integer Read FVar Write FVar;
|
|
End;
|
|
End;
|
|
|
|
Begin
|
|
TRec.NestedType.Variable := 1;
|
|
if TRec.NestedType.Variable<>1 then
|
|
halt(1);
|
|
End.
|