paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 14:08:09 +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;
begin
p := PByte(@UnitNameField[0]) + SizeOf(UnitNameField[0]) + Length(UnitNameField);
Result := AlignTypeData(p);
Result := AlignToPtr(p);
end;
{ TTypeData }