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

* Use RTTIRecordRttiInfoToInitInfo (when FPC_HAS_MANAGEMENT_OPERATORS is not defined) for records/objects in fpc_Copy as well as for fpc_Initialize, fpc_finalize, fpc_Addref

Browse Source 
git-svn-id: trunk@35448 -
This commit is contained in:
maciej-izak 2017-02-19 11:53:52 +00:00
parent 8a68a7aea8
commit 9a9eb1b840
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/rtti.inc
View File

@ -450,6 +450,9 @@ begin
with RTTIRecordOp(typeinfo, typeinfo)^ do with RTTIRecordOp(typeinfo, typeinfo)^ do
{$endif FPC_HAS_MANAGEMENT_OPERATORS} {$endif FPC_HAS_MANAGEMENT_OPERATORS}
begin begin
{$ifndef FPC_HAS_MANAGEMENT_OPERATORS}
typeInfo:=RTTIRecordRttiInfoToInitInfo(typeInfo);
{$endif FPC_HAS_MANAGEMENT_OPERATORS}
{$ifdef VER3_0} {$ifdef VER3_0}
Temp:=aligntoptr(typeInfo+2+PByte(typeInfo)[1]); Temp:=aligntoptr(typeInfo+2+PByte(typeInfo)[1]);
{$else VER3_0} {$else VER3_0}