paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 18:29:13 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/objpas/typinfo.pp
View File

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