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

* get rid of calls to aligntoptr by using methods provided by TClassData and TPropInfo

Browse Source 
git-svn-id: trunk@37423 -
This commit is contained in:
svenbarth 2017-10-07 22:02:40 +00:00
parent da30391a6a
commit 89645633a9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -1692,7 +1692,7 @@ begin
// published properties count for this object // published properties count for this object
// skip the attribute-info if available // skip the attribute-info if available
PPD := aligntoptr(PPropData(pointer(@TD^.UnitName)+PByte(@TD^.UnitName)^+1)); PPD := PClassData(TD)^.PropertyTable;
Count:=PPD^.PropCount; Count:=PPD^.PropCount;
// Now point TP to first propinfo record. // Now point TP to first propinfo record.
TP:=PPropInfo(@PPD^.PropList); TP:=PPropInfo(@PPD^.PropList);
@ -1711,7 +1711,7 @@ begin
// Point to TP next propinfo record. // Point to TP next propinfo record.
// Located at Name[Length(Name)+1] ! // Located at Name[Length(Name)+1] !
TP:=aligntoptr(PPropInfo(pointer(@TP^.Name)+PByte(@TP^.Name)^+1)); TP:=TP^.Next;
Dec(Count); Dec(Count);
end; end;
TypeInfo:=TD^.Parentinfo; TypeInfo:=TD^.Parentinfo;