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

* correct alignment for the property table

Browse Source 
git-svn-id: trunk@42808 -
This commit is contained in:
svenbarth 2019-08-24 23:08:36 +00:00
parent 2dc771b7ba
commit 7e1607e095
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/typinfo.pp
View File

@ -3366,7 +3366,7 @@ var
p: PByte; p: PByte;
begin begin
p := PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField); p := PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField);
Result := AlignTypeData(p); Result := AlignToPtr(p);
end; end;
{ TTypeData } { TTypeData }