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

rtl: add TVmtFieldTable, TVmtFieldEntry to typinfo unit since delphi has that declarations too

Browse Source 
git-svn-id: trunk@14754 -
This commit is contained in:
paul 2010-01-20 15:17:06 +00:00
parent cc23c7c744
commit d3820bfa58
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/objpas/typinfo.pp
View File

@ -78,6 +78,30 @@ unit typinfo;
TTypeKinds = set of TTypeKind; TTypeKinds = set of TTypeKind;
ShortStringBase = string[255]; ShortStringBase = string[255];
PVmtFieldEntry = ^TVmtFieldEntry;
TVmtFieldEntry =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
FieldOffset: PtrUInt;
TypeIndex: Word;
Name: ShortString;
end;
PVmtFieldTable = ^TVmtFieldTable;
TVmtFieldTable =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
Count: Word;
ClassTab: Pointer;
{ should be array[Word] of TFieldInfo; but
Elements have variant size! force at least proper alignment }
Fields: array[0..0] of TVmtFieldEntry
end;
{$PACKRECORDS 1} {$PACKRECORDS 1}
TTypeInfo = record TTypeInfo = record
Kind : TTypeKind; Kind : TTypeKind;