paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 13:10:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes TInterfaceRawData to match TTypeData

Browse Source 
git-svn-id: trunk@42486 -
This commit is contained in:
florian 2019-07-23 19:59:34 +00:00
parent a3a39e1640
commit 73acb4d1c1
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/objpas/typinfo.pp
View File

@ -546,26 +546,26 @@ unit TypInfo;
property PropertyTable: PPropData read GetPropertyTable;
property MethodTable: PIntfMethodTable read GetMethodTable;
public
case TTypeKind of
tkInterface: (
{$ifdef PROVIDE_ATTR_TABLE}
AttributeTable : PAttributeTable;
{$endif}
Parent: PPTypeInfo;
Flags : TIntfFlagsBase;
IID: TGUID;
UnitNameField: ShortString;
{ IIDStr: ShortString; }
{ PropertyTable: TPropData }
);
{ include for proper alignment }
tkInt64: (
dummy : Int64
);
{$ifdef PROVIDE_ATTR_TABLE}
AttributeTable : PAttributeTable;
{$endif}
case TTypeKind of
tkInterface: (
Parent: PPTypeInfo;
Flags : TIntfFlagsBase;
IID: TGUID;
UnitNameField: ShortString;
{ IIDStr: ShortString; }
{ PropertyTable: TPropData }
);
{ include for proper alignment }
tkInt64: (
dummy : Int64
);
{$ifndef FPUNONE}
tkFloat:
(FloatType : TFloatType
);
tkFloat:
(FloatType : TFloatType
);
{$endif}
end;