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

+ add new type TVmtFieldClassTab for the class table of the field table (Delphi compatible)

Browse Source 
git-svn-id: trunk@37483 -
This commit is contained in:
svenbarth 2017-10-17 20:54:38 +00:00
parent 530213711f
commit 0ba1073615
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/typinfo.pp
View File

@ -182,6 +182,16 @@ unit typinfo;
property Tail: Pointer read GetTail;
end;
PVmtFieldClassTab = ^TVmtFieldClassTab;
TVmtFieldClassTab =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
Count: Word;
ClassRef: array[0..0] of PClass;
end;
PVmtFieldEntry = ^TVmtFieldEntry;
TVmtFieldEntry =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
@ -200,7 +210,7 @@ unit typinfo;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
Count: Word;
ClassTab: Pointer;
ClassTab: PVmtFieldClassTab;
{ should be array[Word] of TFieldInfo; but
Elements have variant size! force at least proper alignment }
Fields: array[0..0] of TVmtFieldEntry