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

* the type of FieldOffset in the TFieldInfo rtti structure changed to SizeUInt,

Browse Source 
because it represents an offset _within_ a structure

git-svn-id: trunk@34627 -
This commit is contained in:
nickysn 2016-10-04 21:57:29 +00:00
parent 8672d25e9a
commit 5e7ba4a893
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgvmt.pas
View File

@ -675,7 +675,7 @@ implementation
packed
$endif FPC_REQUIRES_PROPER_ALIGNMENT
record
FieldOffset: PtrUInt;
FieldOffset: SizeUInt;
ClassTypeIndex: Word;
Name: ShortString;
end;
@ -683,7 +683,7 @@ implementation
datatcb.begin_anonymous_record('$fpc_intern_fieldinfo_'+tostr(length(tfieldvarsym(sym).realname)),packrecords,1,
targetinfos[target_info.system]^.alignment.recordalignmin,
targetinfos[target_info.system]^.alignment.maxCrecordalign);
datatcb.emit_tai(Tai_const.Create_pint(tfieldvarsym(sym).fieldoffset),ptruinttype);
datatcb.emit_tai(Tai_const.Create_sizeint(tfieldvarsym(sym).fieldoffset),sizeuinttype);
classindex:=classtablelist.IndexOf(tfieldvarsym(sym).vardef);
if classindex=-1 then
internalerror(200611033);

2
rtl/inc/objpas.inc
View File

@ -496,7 +496,7 @@
packed
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
record
FieldOffset: PtrUInt;
FieldOffset: SizeUInt;
ClassTypeIndex: Word;
Name: ShortString;
end;