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

* fix TClassData by including the AttributeTable at the right location

Browse Source 
git-svn-id: trunk@42370 -
This commit is contained in:
svenbarth 2019-07-12 22:05:51 +00:00
parent e296b26e9e
commit c17dafc2f9
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/objpas/typinfo.pp
View File

@ -248,6 +248,21 @@ unit TypInfo;
{$endif}
{$PACKRECORDS C}
TAttributeProc = function : TCustomAttribute;
PAttributeProcList = ^TAttributeProcList;
TAttributeProcList = array[0..$ffff] of TAttributeProc;
TAttributeData =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif}
record
AttributeCount: word;
AttributesList: TAttributeProcList;
end;
PAttributeData = ^TAttributeData;
// members of TTypeData
TArrayTypeData =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
@ -507,6 +522,7 @@ unit TypInfo;
ClassType : TClass;
Parent : PPTypeInfo;
PropCount : SmallInt;
AttributeTable : PAttributeData;
property UnitName: ShortString read GetUnitName;
property PropertyTable: PPropData read GetPropertyTable;
private
@ -514,20 +530,6 @@ unit TypInfo;
{ PropertyTable: TPropData }
end;
TAttributeProc = function : TCustomAttribute;
PAttributeProcList = ^TAttributeProcList;
TAttributeProcList = array[0..$ffff] of TAttributeProc;
TAttributeData =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif}
record
AttributeCount: word;
AttributesList: TAttributeProcList;
end;
PAttributeData = ^TAttributeData;
PTypeData = ^TTypeData;
TTypeData =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}