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

* use the correct alignment for the field following the unit name of an interface (raw or not doesn't matter)

Browse Source 
git-svn-id: trunk@35410 -
This commit is contained in:
svenbarth 2017-02-10 16:02:23 +00:00
parent ca11a4baaa
commit fd1047c715
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/typinfo.pp
View File

@ -2674,7 +2674,7 @@ var
p: PByte;
begin
p := PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField);
Result := aligntoptr(p);
Result := AlignTypeData(p);
end;
function TInterfaceData.GetMethodTable: PIntfMethodTable;
@ -2691,14 +2691,14 @@ end;
function TInterfaceRawData.GetIIDStr: ShortString;
begin
Result := PShortString(PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField))^;
Result := PShortString(AlignTypeData(PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField)))^;
end;
function TInterfaceRawData.GetPropertyTable: PPropData;
var
p: PByte;
begin
p := PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField);
p := AlignTypeData(PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField));
p := p + SizeOf(p^) + p^;
Result := aligntoptr(p);
end;
@ -2750,7 +2750,7 @@ end;
function TTypeData.GetIIDStr: ShortString;
begin
Result := PShortString(Pointer(@RawIntfUnit) + Length(RawIntfUnit) + 1)^;
Result := PShortString(AlignTypeData(Pointer(@RawIntfUnit) + Length(RawIntfUnit) + 1))^;
end;
function TTypeData.GetElType: PTypeInfo;