paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 23:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TClassData also needs alignment dummies

Browse Source 
git-svn-id: trunk@42807 -
This commit is contained in:
svenbarth 2019-08-24 23:08:33 +00:00
parent f740fc4228
commit 2dc771b7ba
1 changed files with 20 additions and 8 deletions

28
rtl/objpas/typinfo.pp
View File

@ -578,18 +578,30 @@ unit TypInfo;
private
function GetUnitName: ShortString; inline;
function GetPropertyTable: PPropData; inline;
public
property UnitName: ShortString read GetUnitName;
property PropertyTable: PPropData read GetPropertyTable;
public
{$ifdef PROVIDE_ATTR_TABLE}
AttributeTable : PAttributeTable;
{$endif}
ClassType : TClass;
Parent : PPTypeInfo;
PropCount : SmallInt;
property UnitName: ShortString read GetUnitName;
property PropertyTable: PPropData read GetPropertyTable;
private
UnitNameField : ShortString;
{ PropertyTable: TPropData }
case TTypeKind of
tkClass: (
ClassType : TClass;
Parent : PPTypeInfo;
PropCount : SmallInt;
UnitNameField : ShortString;
{ PropertyTable: TPropData }
);
{ include for proper alignment }
tkInt64: (
dummy: Int64;
);
{$ifndef FPUNONE}
tkFloat: (
FloatType : TFloatType
);
{$endif}
end;
PTypeData = ^TTypeData;