mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
460f309035
* adjusted test trtti10.pp due to renamed RecInitTable field Original commit message: Public interface for init table for records in TypInfo: * Rename RecInitTable to RecInitInfo (because it is special kind of PTypeInfo for init table of record). Has more sense in practical usage. + New structure TRecInitData (and related PRecInitData) to handle data for (init) type info for records (aka init table) + New structure TInitManagedField and pointer type PInitManagedField (for init table) + Special helper property RecInitData to get PRecInitData for tkRecord + test attached git-svn-id: trunk@35134 -
16 lines
160 B
ObjectPascal
16 lines
160 B
ObjectPascal
program trtti10;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
uses
|
|
TypInfo;
|
|
|
|
type
|
|
TFoo = record
|
|
end;
|
|
|
|
begin
|
|
if GetTypeData(TypeInfo(TFoo)).RecInitInfo = nil then
|
|
Halt(1);
|
|
end.
|