mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
210e78e4fa
- remove testcurobject hack and perform a check only for regular fields - move is_holded_by to interface and rename it to is_owned_by - don't check static symbols in _needs_init_final because they always point to symbols registered on unit level - don't check object type in id_type, read_named_type when we are looking for type of structure member - the only check will be performed for record/object fields now + tests git-svn-id: trunk@16646 -
21 lines
230 B
ObjectPascal
21 lines
230 B
ObjectPascal
{ %fail}
|
|
program terecs9;
|
|
|
|
{$mode delphi}
|
|
|
|
// don't allow refence owner type for record and object fields and properties
|
|
type
|
|
TFoo = record
|
|
var
|
|
FFoo: TFoo;
|
|
end;
|
|
|
|
TBar = record
|
|
var
|
|
FBar: TBar;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|