Browse Source

* 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

git-svn-id: trunk@35448 -
maciej-izak 8 years ago
parent
commit
9a9eb1b840
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/inc/rtti.inc

+ 3 - 0
rtl/inc/rtti.inc

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